Consecutive Form Numbering?

Posted by Larry on October 21, 2001 3:22 PM

I am trying to print out copies of an Excel form, say, 50 copies, numbered 1 to 50. I could, of course, simply print it manually 50 times, changing the page number each time.

Is there any other way to do this in a single print job, perhaps some sort of custom footer formula?

Thanks in advance for any info.

Posted by Robert Moore on October 21, 2001 4:52 PM

Try printing by running this macro (it puts the print number in cell A1 before printing) :-

Sub Print_50_Copies()
Dim printNbr%
For printNbr = 1 To 50
[A1] = "Copy No. " & printNbr
ActiveSheet.PrintOut
Next
[A1].ClearContents
End Sub