Sequential number printed on each purchase order printed?

[gsides]

I have a worksheet that I created that is a blank purchase order for my organization.

Someone prints multiple copies of the purchase order worksheet. Then the person has to write in a sequential number on each purchase order.

Is there a way to have Excel number each purchase order?

 

[lrobbo314]

This code should do the trick. I've commented the code you would need to change to have the number appear where you want it on the sheet.

Sub PrintWithSequentialNumbers()
Dim SeqNum As Range: Set SeqNum = Range("A1") 'Change to wherever you want your sequential number to be
Dim Cnt As Integer: Cnt = 1
Dim PagesToPrint As Integer: PagesToPrint = Application.InputBox("How many pages do you want to print?")
Dim ws As Worksheet: Set ws = ActiveSheet


For i = 1 To PagesToPrint
    SeqNum.Value = Cnt
    ws.PrintOut 1, 1, 1
    Cnt = Cnt + 1
Next i


End Sub