Results 1 to 3 of 3
  1. #1
    2 Star Lounger
    Join Date
    Apr 2002
    Location
    Sydney, New South Wales, Australia
    Posts
    102
    Thanks
    0
    Thanked 0 Times in 0 Posts

    auto page numbering during printing (2000)

    We have a large number of word documents that are made into booklets. Each is only 1 page but that page is printed up to 200 times. We need to have a field that increments the page number for the 200 pages as it is printed so it looks like this
    page 1 of 200. It would be nice to have a dialogue that asks how many pages you want to print. Previously we have simply copied the same page 200 times so that it ends up as a 200 page Word document. This proves to be a problem when the document changes. Is there a simple way of doing this so that we can just have a one page document that increments the page number when printing?

  2. #2
    4 Star Lounger
    Join Date
    Dec 2003
    Location
    Zoetermeer, Zuid-Holland, Netherlands
    Posts
    559
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: auto page numbering during printing (2000)

    One way to do it is using a FormField. Format it as Number and name it CopyNumber, put it somewhere on the document (NOT in a header or footer). Then run this macro:

    Sub CopyNumberedPrint
    Dim lngCopies As Long
    Dim lngCounter As Long
    lngCopies = Clng(InputBox("How many copies?"))
    For lngCounter = 1 To lngCopies
    ActiveDocument.FormFields("CopyNumber").Result = lngCounter
    ActiveDocument.PrintOut
    Next lngCounter
    End Sub

  3. #3
    2 Star Lounger
    Join Date
    Apr 2002
    Location
    Sydney, New South Wales, Australia
    Posts
    102
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: auto page numbering during printing (2000)

    Thanks very much. Have treid it and it works great.

Posting Permissions

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