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???