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,627
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,627
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
  #5  
Old 03-20-2018, 06:39 AM
loriwojo loriwojo is offline Windows 7 64bit Office 2010 64bit
Novice
 
Join Date: Apr 2014
Posts: 1
loriwojo is on a distinguished road
Default Where do I insert the macro?

Never mind - solved

Last edited by loriwojo; 03-20-2018 at 06:56 AM. Reason: Solved
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:56 AM.


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