New form number for each page printed

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.

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.
>

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.
> >
>
>
>

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.
>> >
>>
>>
>>

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" <rondebruin@kabelfoon.nl> wrote in message news:%23hFVWReSGHA.736@TK2MSFTNGP12.phx.gbl...
> 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.
>>> >
>>>
>>>
>>>
>
>

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" <rondebruin@kabelfoon.nl> wrote in message news:%23hFVWReSGHA.736@TK2MSFTNGP12.phx.gbl...
> > 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.
> >>> >
> >>>
> >>>
> >>>
> >
> >
>
>
>

Thanks for the feedback

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


"jimqual7" <jimqual7@discussions.microsoft.com> wrote in message news:DA430539-F122-401D-A4EB-0738A8A4EE10@microsoft.com...
> 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" <rondebruin@kabelfoon.nl> wrote in message news:%23hFVWReSGHA.736@TK2MSFTNGP12.phx.gbl...
>> > 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.
>> >>> >
>> >>>
>> >>>
>> >>>
>> >
>> >
>>
>>
>>