Try this macro from Ron de Bruin.

This example will print ? copies of the same sheet (It use a Input box to ask
you how many)

It will copy the page number in cell A1or in the Header or Footer.


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


Gord Dibben MS Excel MVP


On Wed, 28 Jun 2006 10:29:02 -0700, dsmith@shealylab
wrote:

We have a form that we use on a regular basis that is printed blank for
employees to fill out daily. Each form must be consecutivly numbered to
provide a unique ID for it. Is there a way to print out around 100 of these
at a time without manually changing the number on each page?