Use a macro containing the following code to print the document:
Dim i As Long
Dim blank As Document
For i = 1 To 240 Step 15
ActiveDocument.PrintOut Range:=wdPrintFromTo, From:=i, To:=i + 15
Set blank = Documents.Add
With blank
.PrintOut
.Close wdDoNotSaveChanges
End With
Next i
--
Hope this helps,
Doug Robbins - Word MVP
Please reply only to the newsgroups unless you wish to obtain my services on
a paid professional basis.