Auto incrementing number on sheet when printing

[Gilbertr14]

Hello

One of the users in our company needs a jobsheet in excel format.

They print out 100 odd copies at a time, but each one needs a unique number.

These are sequential, and would carry on from the last printed batch.

Its in 2007.

 

[rassten]

Maybe something like this:

Excel Workbook
	A	B	C	D	E	F
1	Worksheet #	1
2
3	Data	Data	Data	Data	Data	Data
4	Data	Data	Data	Data	Data	Data
5	Data	Data	Data	Data	Data	Data
Sheet1

Sub print_sheet()
P = InputBox("How many sheets?")
    For I = 1 To P Step 1
        Worksheets("Sheet1").PrintOut
        Range("B1").Value = Range("B1").Value + 1
    Next I
End Sub

 

[Gilbertr14]

Works 1000% thanks