Mail Merge Printing

gmayor · #2 02-02-2017, 09:43 PM

If your data source is Excel, you could use http://www.gmayor.com/ManyToOne.htm in One to One mode and merge to the printer, each document is treated as a separate print job.

If not you could use the following macro. Merge to a new document and use the macro to split the document to the printer.

Code:

Sub SplitMergeLetterToPrinter()
Dim lng_Sections As Long
Dim lng_Counter As Long

    lng_Sections = ActiveDocument.Sections.Count
    lng_Counter = 1
    While lng_Counter < lng_Sections
        ActiveDocument.PrintOut Background:=False, Range:=wdPrintFromTo, _
                                From:="s" & Format(lng_Counter), to:="s" & Format(lng_Counter)
        lng_Counter = lng_Counter + 1
    Wend
lbl_Exit:
    Exit Sub
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Printing a Mail Merge output file	Ar-Pharazon	Mail Merge	7	09-13-2014 07:11 AM
problem printing labels using mail merge	renee.g	Mail Merge	1	05-08-2013 01:33 AM
Help With Printing Mail Merge	dazwm	Mail Merge	6	04-19-2013 05:15 PM
Mail Merge Skipping 2 Labels when Printing	mbsfirst	Mail Merge	3	12-27-2010 04:28 PM
Printing problem with mail merge	irenej48	Mail Merge	0	01-01-2010 03:03 PM