Page numbers on multiple copies of 1 page

Posted by Jean Cox on February 07, 2002 1:19 AM

Is it possible to print one page 500 times and to have each copy have another page number? In effect this would number the copies from 1 to 500.

Posted by Tom Urtis on February 07, 2002 2:23 AM

Here's one way to do it.

Sub PrintCopies()
Dim Quant As String
Dim i As Integer
Quant = InputBox("How many copies do you want to print?", "Print copy quantity")
If Quant = "" Or Not IsNumeric(Quant) Then
MsgBox "You entered nothing or a non-number." & vbCrLf & _
"Please click OK to return to worksheet.", 64, "Print request cancelled"
Exit Sub
ElseIf Quant > 0 Then
For i = 1 To Quant
ActiveSheet.PageSetup.CenterFooter = "Copy number " & i
ActiveSheet.PrintOut
Next i
End If
End Sub

Tom Urtis