printing 1 page document to print page 1 of 50, 2 of 50, etc.

Posted by scott mccormick on November 26, 2001 8:17 PM

How do you print a one page document and make it print fifty copies to say page 1 of 50, 2 of 50, 3 of 50, etc.?

Thanks

Scott

Posted by Hodge on November 27, 2001 5:18 AM

This code will take a while to execute, but it will work nicely . . . (I think!)

NumCopy = Application.InputBox(Prompt:="Number of Copies", Title:="Number of Copies", Default:=50, Type:=1)
If NumCopy = False Then
MsgBox ("Print Aborted")
End
End If
Counter = 1

Do Until Counter = NumCopy + 1
Worksheets(1).PageSetup.CenterHeader = Counter & " of " & NumCopy
Worksheets(1).PrintOut
Counter = Counter + 1
Loop