Hi gburya,
As I undestand it, you want to be able to print 'x' pages and have the printout increment the count from a nominated starting number. Correct? In that case, you'll need a macro.
Try the following macro:
Code:
Sub CertificatePrint()
Dim iStart As Integer, iEnd As Integer, i As Integer, StrArry
On Error GoTo ErrHandler
iStart = CInt(InputBox("What is the first Certificate to print?", "Print Certificates From", "1"))
iEnd = CInt(InputBox("What is the last Certificate to print?", "Print Certificates To", iStart))
If iStart = 0 Or iStart > iEnd Then Exit Sub
With ActiveDocument
For i = iStart To iEnd
With .Shapes(1).TextFrame.TextRange.Fields(1)
StrArry = Split(.Code.Text, " ")
.Code.Text = Replace(.Code.Text, StrArry(UBound(StrArry)), i)
.Update
End With
.PrintOut
Next
End With
ErrHandler:
End Sub
To see how to install the macro, go to:
http://www.gmayor.com/installing_macro.htm