How can i print sequential page numbers 1 to 10, if i have one wo.

D

DJN822

I have an excel worksheet that is one page long. I want to print it 100
times with page numbers labeling it 1 to 100. How do i do this?
 
G

Gord Dibben

DJN

Code from Ron de Bruin's site.

http://www.rondebruin.nl/print­.htm#number

Sub PrintCopies_ActiveSheet()
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
'number in cell A1
'.Range("a1").Value = CopieNumber & " of " & CopiesCount

'number in the footer
.PageSetup.LeftFooter = CopieNumber & " of " & CopiesCount

'Print the sheet
.PrintOut
End With
Next CopieNumber
End Sub

As written above, you will get "page 1 of X" in the footer.

If not familiar with VBA and macros, see David McRitchie's site for more on
"getting started".

http://www.mvps.org/dmcritchie/excel/getstarted.htm

In the meantime..........

First...create a backup copy of your original workbook.

To create a General Module, hit ALT + F11 to open the Visual Basic Editor.

Hit CRTL + R to open Project Explorer.

Find your workbook/project and select it.

Right-click and Insert>Module. Paste the code in there. Save the
workbook and hit ALT + Q to return to your workbook.

Run the macro by going to Tool>Macro>Macros.

You can also assign this macro to a button or a shortcut key combo.


Gord Dibben Excel MVP
 
G

G Holmbo

DJN822 said:
I have an excel worksheet that is one page long. I want to print it 100
times with page numbers labeling it 1 to 100. How do i do this?
Click to expand...

Or you could go File > Page Setup > Header/Footer tab > Custom Footer
button and select Page Number(the 2nd)button > type "of" > select the
Total Pages button
It will look like this - &[page] of &[pages]
 
Top