Results 1 to 4 of 4
  1. #1
    Lounger
    Join Date
    Jan 2001
    Location
    Arcadia, California, USA
    Posts
    39
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Sequential numbering when printing form (Word 2000

    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.

  2. #2
    Star Lounger
    Join Date
    Jun 2002
    Posts
    98
    Thanks
    1
    Thanked 0 Times in 0 Posts

    Re: Sequential numbering when printing form (Word 2000

    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:

    <pre>Sub Print100()

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

    End Sub
    </pre>


    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"
    __________________________________________________ ____
    <img src=/S/nun.gif border=0 alt=nun width=20 height=20> Sister Dory
    Our Lady of Perpetual Help, Holstein Falls, Wisconsin, USA

  3. #3
    Super Moderator jscher2000's Avatar
    Join Date
    Feb 2001
    Location
    Silicon Valley, USA
    Posts
    23,112
    Thanks
    5
    Thanked 93 Times in 89 Posts

    Re: Sequential numbering when printing form (Word 2000

    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! <img src=/S/laugh.gif border=0 alt=laugh width=15 height=15>

  4. #4
    Super Moderator
    Join Date
    Dec 2000
    Location
    New York, NY
    Posts
    2,970
    Thanks
    3
    Thanked 29 Times in 27 Posts

    Re: Sequential numbering when printing form (Word 2000

    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:

    <pre>Public Sub PrintDocumentWithIncrementingPageNumbers()
    Dim n As Long
    With ActiveDocument.Sections(1).Footers(wdHeaderFooterP rimary).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
    </pre>

    Gary

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •