Sequential numbering

Posted by Vickie M on September 04, 2001 1:32 PM

Excel 2000, Windows 2000. How can you get Excel to print a sequential number, either in the header/footer or in the document, based on the number of copies printed? Ex: we want to print a coupon for each person in the company. Coupon created in Excel in a 1 pg worksheet. Say you select 50 copies to print, how can we get each copy to have a unique sequential number, starting from 1 to 50?

Posted by Juan Pablo on September 04, 2001 2:35 PM

I would go with a Macro, don't know if that's possible through menus. Something like this:

Sub PrintPages()
Dim Copies As Integer
Copies = Int(InputBox("Enter number of pages to print", "Print...", 1))
If Copies > 0 Then
For i = 1 To Copies
ActiveSheet.PageSetup.CenterFooter = i
ActiveSheet.PrintOut
Next i
End If
End Sub

Just run it and make sure you enter an INTEGER in the Inputbox, it's not very fast, but gets the job done.

Juan Pablo

Posted by Vickie M on September 04, 2001 2:47 PM

Thank you very much! It works well!