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" <jimqual7@discussions.microsoft.com> wrote in message news:07E1787E-6E83-473C-84B0-F44EF38E8E2F@microsoft.com...
> 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" <jimqual7@discussions.microsoft.com> wrote in message news:D5158C54-B191-4005-8165-AB162AADC67D@microsoft.com...
>> >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.
>> >
>>
>>
>>