Sequential numbering when printing form (Word 2000

Topic

New Reply

I need to print a single-page form 100 times. I need each page to be sequentially numbered from 1 to 100. I’m sure there is a way to do it, but I haven’t figured it out yet.

Reply | Quote

Replies

Page numbers?

If copy/pasting 100 times to make a big 100 page doc sounds like a hassle, maybe you could make the form a mail merge doc. Then use a spreadsheet with a column of 1-100 as your merge data. Place the “number” merge field on your form and let ‘er rip: Merge to document and you’ll have a big 100 page, numbered doc to print….once.

Otherwise, you might need to do some coding to do this. Like:

Sub Print100()

For x = 1 To 100
    ActiveDocument.FormFields("Text1").Result = x
    ActiveDocument.PrintOut
Next x

End Sub

Just plop a formfield in the doc where you want the page number to be. In the example above the form field is called “Text1”

Reply | Quote

Or, assuming you have a standard page number field in the header or footer, you could create a macro that goes to the end of the document, prints the current page, then goes to the top of the document, inserts a hard page break and repeats another 99 times. Would leave things a bit messy though. Don’t save changes!

Reply | Quote

P.,

Here’s a macro that lets you keep the original page number untouched; don’t need to insert additional fields either – it assumes your document is one page long, contains only one section, and only one footer type:

Public Sub PrintDocumentWithIncrementingPageNumbers()
   Dim n As Long
   With ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).PageNumbers
      'Increment page number:
      For n = 1 To 100
         .StartingNumber = n
         ActiveDocument.PrintOut
      Next 'n
      'Reset page number back to 1:
      .StartingNumber = 1
   End With
End Sub

Gary

Reply | Quote