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