Printing a mail merge document to be stapled

[Steven Bitaxi]

Scenario
MS Office XP

7 pg Word Document
1015 Recipients in Excel Workbook

Merged = 7105 pgs

Intended output
1015 sets of a 7 pg document, double-sided and stapled on Konica 7405
copier

I believe that if I create a macro that tells Word to print Pg 1 - 7

' Printing Macro
' Macro recorded 22/04/2004 by Steven Bitaxi
'
Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages,
Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="1-7", PageType:= _
wdPrintAllPages, ManualDuplexPrint:=False, Collate:=True,
Background:= _
True, PrintToFile:=False, PrintZoomColumn:=0, PrintZoomRow:=0,
_
PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0
End Sub

Then somehow, tell it to keep adding 7 pages to the page range in the
script, it will give me the end result that I am after.

My problem is that I don't know how to tell it to do that. I did not
write this VBA script. I simply clicked "record new macro..." and
stepped through the print dialogue to achieve the macro described
above. I'm stumped and I hope that someone has a suggestion for me.

If I don't do it this way, I either have to staple everything
manually, or print manually. That is over 1000 print requests. While
the printer can handle it, I can't. The copier wants to try to staple
the entire document (I have not printed it yet, I know this will be
the end result due to past attempts at printing this sort of
document).

Help me Obi-Wan-Kenobi, you're my only hope. Or someone from this
Group in absence of the celestial warrior.


Steven Bitaxi

 

[Doug Robbins - Word MVP]

Hi Stephen,

As the document for each recipient is in a separate section, you can use:

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

to send each letter as a separate print job.

--
Please post any further questions or followup to the newsgroups 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

 

[Steven Bitaxi]

Worked like a charm. Thanks! Now to see if the computer and can handle
spooling 1015 documents. I have to send them in waves, otherwise the
rest of the office will be very unhappy with me.

There is no script for warding off angry co-workers is there?

S