Printed copies numbering

[Guest]

I have a single sheet ( single Page ) and i want to print multiple copies of it ...
Is thier an option in excel that auto numbers those printed copies ? i.e if i need 10 copies I want it to be auto numbered 1..2..3..4.....10
Please help

 

[Gord Dibben]

NoChance

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.

Gord Dibben Excel MVP