Microsoft Office Forums

Go Back   Microsoft Office Forums > Microsoft Word > Mail Merge

Reply
 
LinkBack Thread Tools Display Modes
  #1  
Old 01-30-2017, 08:46 AM
Danholland Danholland is offline Windows 10 Office 2013
Novice
 
Join Date: Jan 2017
Posts: 2
Danholland is on a distinguished road
Default Mail Merge Printing

Hi

i have a mail merge for printing form packs which are all 6 pages each,

what i would like to be able to do it print each set so that every 6 pages would staple so that once the jobs finished ill have individual forms ready to be posted.

does anyone know a way around this without printing each set individually?
Reply With Quote
  #2  
Old 02-02-2017, 09:43 PM
gmayor's Avatar
gmayor gmayor is offline Windows 10 Office 2016
Expert
 
Join Date: Aug 2014
Posts: 2,201
gmayor is a jewel in the roughgmayor is a jewel in the roughgmayor is a jewel in the roughgmayor is a jewel in the rough
Default

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
__________________
Graham Mayor - MS MVP (Word)
Visit my web site for more programming tips and ready made processes www.gmayor.com
Reply With Quote
  #3  
Old 02-03-2017, 01:49 AM
Danholland Danholland is offline Windows 10 Office 2013
Novice
 
Join Date: Jan 2017
Posts: 2
Danholland is on a distinguished road
Default

will this need changing at all, im not very good at understanding macros


Quote:
Originally Posted by gmayor View Post
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
Reply With Quote
  #4  
Old 02-03-2017, 04:39 AM
gmayor's Avatar
gmayor gmayor is offline Windows 10 Office 2016
Expert
 
Join Date: Aug 2014
Posts: 2,201
gmayor is a jewel in the roughgmayor is a jewel in the roughgmayor is a jewel in the roughgmayor is a jewel in the rough
Default

http://www.gmayor.com/installing_macro.htm
__________________
Graham Mayor - MS MVP (Word)
Visit my web site for more programming tips and ready made processes www.gmayor.com
Reply With Quote
Reply

Thread Tools
Display Modes


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


All times are GMT -7. The time now is 08:49 PM.


Powered by vBulletin® Version 3.8.1
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.
MSOfficeForums.com is not affiliated with Microsoft