I have the following code which works fine:
Application.PrintOut FileName:="", Copies:=2
This prints my 10 page document twice.
Range:=wdPrintRangeOfPages needs to be added along with Pages.
Range:=wdPrintRangeOfPages
Pages
For example:
Application.PrintOut FileName:="", Copies:=2, Range:=wdPrintRangeOfPages, Pages:="2,6-10"