How to print excel with serial number

[ahyui]

I've made a form with in excel format.
I want to print a lot of copies with serial number in sequent order (i.e.
0001, 0002, 0003,.......0500).
How should I do it? Thank you.

 

[Tom Ogilvy]

Use the before print event to increment the serial number.

http://www.cpearson.com/excel/events.htm
Chip Pearson's page on events.

 

[ahyui]

Thank you, I got it from another site.
For others reference.

Sub PrintXTimes()
Dim i As Integer

For i = 1 To 100 'to set how many you want to print i.e.
1 To 500 = print 500 copies
Range("A1") = Range("A1") + 1
ActiveWindow.SelectedSheets.PrintOut _
Copies:=1, Preview:=False, Collate:=True
Next i
End Sub

 

[Tom Ogilvy]

If you use that solution
a) you have to change the macro each time
b) your serial number gets duplicated if you print outside your macro.

But it may work great for you.