I thought that this would do it but it is giving me an error of:
1004 Methough PrintOut of object Sheets failed

Sub PrintMacro()
vCopies = InputBox("How Many Copies?")
i = 1
For i = 1 To vCopies
Sheets.PrintOut
Next i
End Sub

Any help is appreciated
Thanks