Sequential numbering on a blank form?

[Guest]

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

 

[DS-NTE]

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