Mail Merge Stable/Printing

[teelee]

Yes, I have a mail merge document that has 8 pages and I'm having trouble
with stapling each set of 8 pages. I have alot to print out and it just takes
to long to have to staple them myself. So if any one knows how I can get my
pages to print any help would be very much appreciated.

Thanks in advance

 

[Graham Mayor]

Merge to a new document then use the following macro to split to the
printer, treating each record as a new print job.

Sub SplitMergeLetterToPrinter()

' splitter Macro
' Macro created 16-08-98 by Doug Robbins to print each letter created by a
' mailmerge as a separate file.
'
Letters = ActiveDocument.Sections.Count
counter = 1
While counter < Letters
ActiveDocument.PrintOut Background:=False, Range:=wdPrintFromTo, _
From:="s" & format(counter), To:="s" & format(counter)
counter = counter + 1
Wend
End Sub

http://www.gmayor.com/installing_macro.htm

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP


<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

 

[teelee]

Macros are a little new to me, can you tell me where I place the marco?

 

[teelee]

Also do I have to enter the number of pages where it says: Print From?

 

[Graham Mayor]

Save the macro in the normal template - see the link I posted earlier ie
http://www.gmayor.com/installing_macro.htm which explains how

The macro simply treats each 8 page 'letter' as a separate print task - and
assumed a printer that staples each print job automatically. If you are
manually stapling the document and you simply want to take off each 8 pages,
then you need a wait state after each record eg

Sub SplitMergeLetterToPrinter()
Dim sAsk As String
Letters = ActiveDocument.Sections.Count
counter = 1
While counter < Letters
ActiveDocument.PrintOut Background:=False, Range:=wdPrintFromTo, _
From:="s" & format(counter), To:="s" & format(counter)
counter = counter + 1
sAsk = MsgBox("Print next record", vbYesNo, "Split Merge Print")
If sAsk = vbNo Then Exit Sub
Wend
End Sub

You don't have to enter anything in the macro. Merge the lot to a new
document then run the macro on that document. It will print each set of 8
pages stopping after each set. Click 'yes' for the next set, or 'No' to
cancel.

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP


<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

 

[teelee]

Can you tell me where I place this macro and how?
Thanks

 

[Graham Mayor]

Have you read the linked web page which explains what to do with macroi
listings?

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP


<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

 

[teelee]

Ok, I did what you said and it's not working. This is what I did: I created
the mailmerge saved it as a template, opened it again then created the macro.
I selected macro, named it created it copied it then copied it in to the
Module saved, closed went back to the document went to added the macro to the
toolbar selected the macro button that was added to the toolbar, and it just
prints one of the mailmerged copies. There is about 241 with 8 pages each.
What am I doing wrong?

Thanks

 

[Graham Mayor]

The macro, as I indicated (twice), earlier is intended to be run on the
merged document not the merge source document. Merge to a new document -
then run the macro on that. The macro splits the merged document at the
section breaks between each record and prints each section as a separate
task. If you don't know how to merge to a new document see
http://www.gmayor.com/mail_merge_labels_with_word_xp.htm or
http://www.gmayor.com/merge_labels_with_word_2007.htm

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP


<>>< ><<> ><<> <>>< ><<> <>>< <>><<>