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. |
New form number for each page printed
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. |
New form number for each page printed
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. |
New form number for each page printed
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. |
New form number for each page printed
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. |
New form number for each page printed
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. |
New form number for each page printed
Thanks for the feedback
-- Regards Ron de Bruin http://www.rondebruin.nl "jimqual7" wrote in message ... 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. |
All times are GMT +1. The time now is 01:16 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com