> 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" wrote:
>
>> Have you read the linked web page which explains what to do with
>> macroi listings?
>>
>> --
>> <>>< ><<> ><<> <>>< ><<> <>>< <>><<>
>> Graham Mayor - Word MVP
>>
>> My web site www.gmayor.com
>> Word MVP web site
http://word.mvps.org>> <>>< ><<> ><<> <>>< ><<> <>>< <>><<>
>>
>>
>> teelee wrote:
>>> Can you tell me where I place this macro and how?
>>> Thanks
>>>
>>> "Graham Mayor" wrote:
>>>
>>>> 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
>>>>
>>>> My web site www.gmayor.com
>>>> Word MVP web site
http://word.mvps.org>>>> <>>< ><<> ><<> <>>< ><<> <>>< <>><<>
>>>>
>>>>
>>>> teelee wrote:
>>>>> Also do I have to enter the number of pages where it says: Print
>>>>> From?
>>>>>
>>>>> "Graham Mayor" wrote:
>>>>>
>>>>>> 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
>>>>>>
>>>>>> My web site www.gmayor.com
>>>>>> Word MVP web site
http://word.mvps.org>>>>>> <>>< ><<> ><<> <>>< ><<> <>>< <>><<>
>>>>>>
>>>>>>
>>>>>> teelee wrote:
>>>>>>> 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