How can I print consecutivly numbered copies of the same form?

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

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

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Auto Number for Form 4
How can I iterate numbering when printing 1
Numbering rows when printing 7
Copying the Cell Above 5
Sequential numbering on a blank form? 1
How do I in excel print consecutive numbers from one form? 1
Dynamic Excel data into locked Word form 0
print multiple copies of the same page with sequential numbers 1

Back
Top