GingerR..
I figured the code out...here is the code that I used and it works perfectly!
Dim intCopies As Integer
intCopies = InputBox("Please enter number of copies", "Copies", 1)
DoCmd.PrintOut acSelection, 1, 1, acHigh, intCopies, True
Thanks again for your help! I hope this might...