WOW, Thanks, that's exactly what I was looking for.

"Ron de Bruin" wrote:

Use this one

Sub PrintCopies_ActiveSheet_2()
Dim CopiesCount As Long
Dim CopieNumber As Long
CopiesCount = Application.InputBox("How many Copies do you want", Type:=1)

With ActiveSheet
If Not IsNumeric(.Range("A1").Value) Then .Range("A1").Value = 0
For CopieNumber = 1 To CopiesCount
'number in cell A1
.Range("a1").Value = .Range("a1").Value + 1

'Print the sheet
.PrintOut
Next CopieNumber
End With

End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Ron de Bruin" wrote in message ...
Try this

Sub PrintCopies_ActiveSheet()
Dim CopiesCount As Long
Dim CopieNumber As Long
CopiesCount = Application.InputBox("How many Copies do you want", Type:=1)

With ActiveSheet
If .Range("A1").Value = "" Then .Range("A1").Value = 0
For CopieNumber = .Range("A1").Value To (CopiesCount + .Range("A1").Value - 1)
'number in cell A1
.Range("a1").Value = CopieNumber + 1

'number in the footer
'.PageSetup.LeftFooter = CopieNumber

'Print the sheet
.PrintOut
Next CopieNumber
End With

End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl


"jimqual7" wrote in message ...
Thanks, I was able to modify it to just print the CopieNumber without the
CopiesCount.
Now, how can i continue printing where I left off, such as today I print
numbered pages 1 thru 25. If I print again tomorrow can I print pages 26 thru
50?

"Ron de Bruin" wrote:

Hi jimqual7

Try this macro
http://www.rondebruin.nl/print.htm#number



--
Regards Ron de Bruin
http://www.rondebruin.nl


"jimqual7" wrote in message ...
I have created an Excel form that will be filled in by hand. I need to print
hundreds of this form but I would like each form to be printed with a new
reference number such as 00001, 00002, 00003, 00004, etc.