Numbering forms

[Ron de Bruin]

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

--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)
www.rondebruin.nl

"Suzy" <suzy...@yahoo.com> wrote in message news:012401c36b35$f3dbe8a0$a501...@phx.gbl...
> 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

[Suzy]

I'm sorry I don't know what that means?? Where am I using
this??

>.
>

[Ron de Bruin]

http://www.mvps.org/dmcritchie/excel/getstarted.htm
See David McRitchie's site if you just started with VBA

copy the first macro in a module and run it.
It will print the page 5 times with a number on each page in cell a1.
Change to your needs

--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)
www.rondebruin.nl

"Suzy" <suzy...@yahoo.com> wrote in message news:01e601c36b41$9555f2b0$a601...@phx.gbl...

[Suzy]

That worked FABULOUSLY Thanks

Suzy

>.
>