You might consider a macro like this...
Sub PrintXCopies
Dim NumCopies As Long
Dim Counter As Long
NumCopies = InputBox("How many copies to print?")
With ThisWorkbook.Worksheets("Sheet1")
.[a1].NumberFormat = "000"
For Counter = 1 To NumCopies
.[a1] = Counter
.PrintOut
Next
End With
MsgBox "Done"
End Sub