Auto Number Copies of Worksheet Printed

[blinhart]

Do you know if there is a way to auto number a one page worksheet to print a different number onto bottom of page in footer? I am printing off work orders that are a one page document and I want it to print out 001, 002, 003, etc... When work orders are entered into a database they have to have a different work order number for each one and was hoping there is a way to print out instead of having to hand write on each one.

[tim201110]

Sub print0()

 'in print dialog amount=1
 n = [a3] 'may be any cell for ccpy amount
 'Application.EnableEvents = False
 
 For i = 1 To n
     With ActiveSheet.PageSetup
   '     .LeftHeader = ""
    '    .CenterHeader = ""
     '   .RightHeader = ""
      '  .LeftFooter = ""
        .CenterFooter = Format(i, "000")
 
    End With
      ActiveWindow.SelectedSheets.PrintOut
 Next i
 'Application.EnableEvents = True
End Sub

[blinhart]

It does work but prints only one copy at a time and I wanted in right header. I couldn't figure out where to change that. This is the one I used and works good with the only exception of it prints one copy at a time instead of printing all the number of copies I need.

Sub PrintJobs()
Dim i As Long, startnum As Long, lastnum As Long
startnum = Application.InputBox("Enter the first job number to be printed", _
"Print Job Number")
lastnum = Application.InputBox("Enter the last job number to be printed", _
"Print Job Number")
For i = startnum To lastnum
ActiveSheet.PageSetup.RightHeader = "Repair Order No. " & i
ActiveWindow.SelectedSheets.PrintPreview 'PrintOut
Next
End Sub