Special Page numbering

A

Alain + Ivy

I wish to print a regular Word document several time BUT wit a sequential
numbering...e.g. say I print 12 times the document YZX, I wish to have the
first printed page numbered 1, then the second print out be numbered 2, and
so on....the last print is numbered 12.

What yould be the best solution?

Alain Kadlec
Ottawa
 
D

DA

Hi Allain

The following will place the words "Document: <number>"
into the primary header and print out the doc 12 times.

Don't use the primary header selection if you've already
got a header in your doc (as this code would replace it).

---------------
Sub PrintDocSeq()
Dim lngCounter As long

ActiveDocument.Sections(1). _
Headers(wdHeaderFooterPrimary).Range.Select
lngCounter = 1
For lngCounter = 1 To 12
Selection = "Document " + CStr(lngCounter)
ActiveDocument.PrintOut
Next lngCounter
End Sub
 
Top