Try sth like this:

In the code module for the workbook:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Worksheets("Sheet1").Range("A1") = Worksheets("Sheet1").Range("A1") + 1
End Sub

In a standard module:

Sub PrintMe()
i = 1
For i = 1 To 100
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next i
End Sub


In A1 enter 0 and then run PrintMe

Hope you get the idea,adjust to your needs.

knut

"Ferree" skrev i melding
...
I have created a blank form in Excel and I want to print 100 today and
number
them sequentially. Next month, I want to start with number 101 and number
sequentially. Can I format this to print with a different number on each
form