How to staple mail merged documents

macropod · #1 06-11-2014, 05:41 PM

To do that, you would need to send each merged document to the printer as a separate print job. For that, you could use a macro such as:

Code:

Sub Merge_To_Individual_Print_Jobs()
'Merges one record at a time to the printer
Application.ScreenUpdating = False
Dim i As Long
With ActiveDocument
  For i = 1 To .MailMerge.DataSource.RecordCount
    With .MailMerge
      .Destination = wdSendToPrinter
      .SuppressBlankLines = True
      With .DataSource
        .FirstRecord = i
        .LastRecord = i
        .ActiveRecord = i
      End With
      .Execute Pause:=False
    End With
  Next i
End With
Application.ScreenUpdating = True
End Sub

jopegk · #2 06-12-2014, 12:16 AM

Thanks, macropod!

It seems to work, but I get a message from Visual Basic that says that something is wrong ("Runtime error '5853': Invalid parameter."). Is that a problem?

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Align Mail Merged Numbers to the Decimal Point	HangMan	Mail Merge	1	12-11-2013 02:32 PM
Insert Text between Mail Merged Items	kawirider88	Mail Merge	1	09-29-2013 06:55 PM
saving a mail merged document after the user edits it.	kosh2	Mail Merge	0	08-05-2011 03:35 AM
Overlapping text once mail merged	Spartan300	Mail Merge	6	10-13-2010 06:14 PM
No toggle b/w 2 accounts; mail merged in 1 inbox	Windwardman	Outlook	1	06-09-2010 09:25 AM