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.