| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
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. |
|
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
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. |
|
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
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. |
|
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
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. |
|
#5
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
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. |
|
#6
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
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. |
|
#7
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
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. |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Return SEARCHED Column Number of Numeric Label and Value | Excel Worksheet Functions | |||
| printing onto re printed form | Excel Discussion (Misc queries) | |||
| Problem with Page Numbering | Excel Discussion (Misc queries) | |||
| How do I print a one page spreadsheet multiple time, each with its own page number? | Excel Discussion (Misc queries) | |||
| insert a page number into a cell? | Excel Worksheet Functions | |||
Linear Mode
