You could use a macro to increment the cell. In the workbook module, try
something similar to:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Range("A1").Value = Range("A1").Value + 1
End Sub


It will add 1 to A1 before each printing.

--
Damon Longworth

Don't miss out on the 2005 Excel User Conference
Sept 16th and 17th
Stockyards Hotel - Ft. Worth, Texas
www.ExcelUserConference.com


"2 hard basket" <2 hard wrote in message
...
I have made a form made up of one worksheet only but each time I print it I
want it to have a sequential page number for eg. 0001 to 10,000.
Basically
so that each form has a recorded number that can be used as a reference.