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.?
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")
Counter = 1
Do Until Counter = NumCopy + 1
Worksheets(1).PageSetup.CenterHeader = Counter & " of " & NumCopy
Counter = Counter + 1
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.