Merge to Multiple Docs?

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

kersterlm - 28 Oct 2003 22:21 GMT

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.

Reply to this Message

Doug Robbins - Word MVP - 29 Oct 2003 01:33 GMT

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.

Reply to this Message

Torlay - 21 Nov 2003 23:47 GMT

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

Reply to this Message