Numbering forms

  • Thread starter Thread starter Suzy
  • Start date Start date
S

Suzy

I am trying to make a form that will print out the form in
sequential number for instance I am making purchase orders
and I want it to automatically print Purchase order number
say from 1000-1010 automatically when I request it to
print 10 pages
 
Try to adapt this for your code

Sub test()
Dim a As Integer
For a = 1 To 5
Range("a1").Value = a & " of 5"
ActiveSheet.PrintOut
Next a
End Sub

' From Vasant Nanavati
Sub PrintCopies()
Dim i As Long
For i = 1 To 5
With ActiveSheet
.PageSetup.LeftFooter = i
.PrintOut
End With
Next
End Sub
 
Back
Top