Consecutive page numbers

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Babyjsmom - 30 Sep 2004 16:43 GMT

Is there any way to have a one page document print out with consecutive page
numbers on it? Example: as it prints the same document over and over again
100 times each one has a new page number on it.

Signature

Babyjsmom

Reply to this Message

Dayo Mitchell - 30 Sep 2004 17:10 GMT

A couple of different ways, both detailed here:

http://word.mvps.org/faqs/macrosvba/NumberDocs.htm
http://word.mvps.org/faqs/MailMerge/NumberCopiesOfDocMMerge.htm

> Is there any way to have a one page document print out with consecutive page
> numbers on it? Example: as it prints the same document over and over again
> 100 times each one has a new page number on it.

Reply to this Message

Babyjsmom - 30 Sep 2004 17:21 GMT

Thank you so much, that is exactly what I needed!

> A couple of different ways, both detailed here:
>
[quoted text clipped - 4 lines]
> > numbers on it? Example: as it prints the same document over and over again
> > 100 times each one has a new page number on it.

Reply to this Message

Greg - 30 Sep 2004 17:31 GMT

You can use the following macro:

Sub PrintNumberedCopeis()

Dim NumCopies, CopyNumber As String
Dim Counter As Long
Dim rng1 As Range
CopyNumber = Val(InputBox("Enter the starting
number.", "Starting Number", 1))
NumCopies = Val(InputBox("Enter the number of copies that
you want to print", "Print", 1))
With ActiveDocument.Bookmarks
.Add Name:="CopyNum"
End With
Set rng1 = ActiveDocument.Bookmarks("CopyNum").Range
Counter = 0
While Counter < NumCopies
rng1.Delete
rng1.Text = CopyNumber
ActiveDocument.PrintOut
CopyNumber = CopyNumber + 1
Counter = Counter + 1
Wend
With ActiveDocument.Bookmarks
.Add Name:="CopyNum", Range:=rng1
End With
End Sub

>-----Original Message-----
>Is there any way to have a one page document print out with consecutive page
>numbers on it? Example: as it prints the same document over and over again
>100 times each one has a new page number on it.

Reply to this Message

Rate this thread: