Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Consecutive print numbers
How can I print consecutive numbers on a print of the same doc... Say I want to print 50 copies of the same doc and I want it to show on the print out 1 of 50, 2 of 50, 3 of 50 etc etc... Can this be done as a footer??? |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Consecutive print numbers
Dear Lisa
Use the below macro. If you are new to macros set the Security level to low/medium in (Tools|Macro|Security). 'Launch VBE using short-key Alt+F11. Insert a module and paste the below code. Save. Get back to Workbook. Tools|Macro|Run macro Sub PrintMultiplewithFooterChange() For intTemp = 1 To 50 ActiveSheet.PageSetup.CenterFooter = "Page " & intTemp & " of 50" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Next intTemp End Sub If this post helps click Yes --------------- Jacob Skaria "Lisa" wrote: How can I print consecutive numbers on a print of the same doc... Say I want to print 50 copies of the same doc and I want it to show on the print out 1 of 50, 2 of 50, 3 of 50 etc etc... Can this be done as a footer??? |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
Consecutive print numbers
Revised to avoid the screen updates....
Sub PrintMultiplewithFooterChange() Application.ScreenUpdating = False For intTemp = 1 To 50 ActiveSheet.PageSetup.CenterFooter = "Page " & intTemp & " of 50" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Next intTemp Application.ScreenUpdating = True End Sub If this post helps click Yes --------------- Jacob Skaria "Jacob Skaria" wrote: Dear Lisa Use the below macro. If you are new to macros set the Security level to low/medium in (Tools|Macro|Security). 'Launch VBE using short-key Alt+F11. Insert a module and paste the below code. Save. Get back to Workbook. Tools|Macro|Run macro Sub PrintMultiplewithFooterChange() For intTemp = 1 To 50 ActiveSheet.PageSetup.CenterFooter = "Page " & intTemp & " of 50" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Next intTemp End Sub If this post helps click Yes --------------- Jacob Skaria "Lisa" wrote: How can I print consecutive numbers on a print of the same doc... Say I want to print 50 copies of the same doc and I want it to show on the print out 1 of 50, 2 of 50, 3 of 50 etc etc... Can this be done as a footer??? |
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
Consecutive print numbers
From Ron de Bruin.......................
Sub PrintCopies_ActiveSheet_1() Dim CopiesCount As Long Dim CopieNumber As Long CopiesCount = Application.InputBox("How many copies do you want", _ Type:=1) For CopieNumber = 1 To CopiesCount With ActiveSheet ' This example print the number in cell A1 .Range("A1").Value = CopieNumber & " of " & CopiesCount 'If you want the number in the footer use this line '.PageSetup.LeftFooter = CopieNumber & " of " & CopiesCount 'Print the sheet .PrintOut End With Next CopieNumber End Sub Gord Dibben MS Excel MVP On Thu, 2 Apr 2009 22:14:02 -0700, Lisa wrote: How can I print consecutive numbers on a print of the same doc... Say I want to print 50 copies of the same doc and I want it to show on the print out 1 of 50, 2 of 50, 3 of 50 etc etc... Can this be done as a footer??? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
how do i print a page of consecutive numbers | Excel Discussion (Misc queries) | |||
Print a single sheet in Excel with consecutive page numbers | Excel Discussion (Misc queries) | |||
In Excel, print non-consecutive columns. | Excel Discussion (Misc queries) | |||
How do I in excel print consecutive numbers from one form? | Excel Discussion (Misc queries) | |||
How to print from consecutive numbers in excel w/o typing all? | Excel Worksheet Functions |