Printing multiple copies

Not all printer drivers have the capability to print multiple copies. Here is a very simple Write macro that provides a work around for such printers.

Sub MultipleCopies

Dim ncopies, startpage, endpage, collate 

 

startpage = 1 

endpage = 9999 

collate = False 

ncopies = InputBox("Number of copies required?", "Print current document", 2) 

 

If ncopies = "" Then 

Exit Sub 

End If 

 

ActiveDocument.Print startpage, endpage, ncopies, collate 

End Sub

You can specify whatever you want for startpage, endpage and collate (or even prompt the user). Setting endpage = 9999 will print every page for most documents.