Archive of Mr Excel Message Board


Back to Printing in Excel archive index
Back to archive home

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


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

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


This archive is from the original message board at www.MrExcel.com.
All contents © 1998-2004 MrExcel.com.
Visit our online store to buy searchable CD's with thousands of VBA and Excel answers.
Microsoft Excel is a registered trademark of the Microsoft Corporation.
MrExcel is a registered trademark of Tickling Keys, Inc.