[Resolved]Printing Specific range of Pgs.-Word 2000[Resolved]

[jpmhughes]

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.

[jpmhughes]

At another forum someone suggested this in VB:

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

It looks good but doesn't work.
I get a Run time error -13
Type mismatch
at:
ActiveDocument.ActiveWindow.PrintOut _
Range:=wdPrintFromTo, From:=J, To:=J + 7

I am very new to this (first time) can anyone help?
Thanks,
Jim

[RobDog888]

You need to place double quotes around the from and to values.
But since you are using a variable, use CStr() function.
They are of string type.

Sub PrintEight()
    Dim J As Long
    
    For J = 1 To 60000 Step 8
        ActiveDocument.ActiveWindow.PrintOut Range:=wdPrintFromTo, From:=CStr(J), To:=CStr(J + 7)
    Next J
End Sub

[jpmhughes]

That worked. Much appreciated.

[RobDog888]

No prob.