PrintMCross

For i = 1 To num_copies
' Print the document here...

Printer.NewPage
Next i
Printer.EndDoc