Merge to Multiple Docs?

[kersterlm]

After merging 500 records, I need my printer to print and staple each record separately -- OTHERWISE my printer goes wild, prints all 500 records at once and staples them all together.

Is there a way to save a merged doc to recognize 500 mini-docs? I've tried printing before Step 6 of the Wizard, but no luck. I'm using Word 2002.

 

[Doug Robbins - Word MVP]

Hi Kerstelm,

Run a macro containing the following code when the
document created by the merge is the active document:

Dim i As Integer
For i = 1 To ActiveDocument.Sections.Count
ActiveDocument.PrintOut Range:=wdPrintFromTo,
From:="s" & i, To:="s" & i
Next i

Please post any response or addtional questions to the
newsgroup for the benefit of others who may be
interested. Unsolicited questions forwarded directly to
me will only be answered on a paid consulting basis.

Hope this helps,
Doug Robbins - Word MVP

-----Original Message-----
After merging 500 records, I need my printer to print and

staple each record separately -- OTHERWISE my printer goes
wild, prints all 500 records at once and staples them all
together.

Is there a way to save a merged doc to recognize 500 mini-

docs? I've tried printing before Step 6 of the Wizard,
but no luck. I'm using Word 2002.

 

[Torlay]

For the part of your question Doug Robbins has a pretty clever code:

Dim i As Integer
For i = 1 To ActiveDocument.Sections.Count
ActiveDocument.PrintOut Range:=wdPrintFromTo,
From:="s" & i, To:="s" & i
Next i

I cannot figure out the second part yet. Good luck.

Torla