I have a 60,000 page Word 2000 document. There are 7,500 people who need four double sided pages printed front and back and then stapled.
What I want to do is send the file to my copier and have the pages individually printed and stapled for each of the 7,500 people. What I would like to do is create a macro that will send the first 8 pages and then the next 8 pages and so on. I have to do it this way because I can not send the entire document and have the copier staple each 8 pages by themselves, it would try to staple the whole document, which obviously wouldn't be possible nor is it what I want. Is there a way to do this in a Macro, such as using WdPrintFromTo? Or similar?
Thanks.
Jim

Hi Jim
Try the following, it should do the trick.

Sub PrintEight()
    Dim J As Long

    For J = 1 To 60000 Step 8
        ActiveDocument.ActiveWindow.PrintOut _
        Range:=wdPrintFromTo, From:=J, To:=J + 7
    Next J
End Sub

Cheers
Karsten

Thanks Karsten.
Where in the current Macro would I put this?
Here is the current Macro.

Sub Pagerange()

'

' Pagerange Macro

' Macro recorded 8/23/2004 by Comp

'

    ActivePrinter = "Konica IP-601 PostScript"

    With Options

        .UpdateFieldsAtPrint = False

        .UpdateLinksAtPrint = False

        .DefaultTray = "Use printer settings"

        .PrintBackground = True

        .PrintProperties = False

        .PrintFieldCodes = False

        .PrintComments = False

        .PrintHiddenText = False

        .PrintDrawingObjects = True

        .PrintDraft = False

        .PrintReverse = False

        .MapPaperSize = True

    End With

    With ActiveDocument

        .PrintPostScriptOverText = False

        .PrintFormsData = False

    End With

    Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _

        wdPrintDocumentContent, Copies:=1, Pages:="1-8", PageType:= _

        wdPrintAllPages, Collate:=True, Background:=True, PrintToFile:=False, _

        PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _

        PrintZoomPaperHeight:=0

End Sub


I created this so at least the first 8 double sided pages would print out with all the parameters. Right now this macro works perfectly, for the first 8 pages anyway!

How would I include your text? Thanks for your help, I really appreciate it....
Jim

Also I am getting a Type Mismatch with the line:

ActiveDocument.ActiveWindow.PrintOut _
Range:=wdPrintFromTo, From:=J, To:=J + 7

It appears to be the Range:-wdPrintFromTo
the debugger is calling for a value?
Using an example of wdPrintFromTo=3
?
Please bear with me I am new to this. Thanks again.
Jim

Hi
As it is not possible for me to print anything at the moment I can debug it myself. But look at this address here you can find all the information nessesary to perform your task.
http://msdn.microsoft.com/library/de...icationobj.asp

Cheers
Karsten