How to staple mail merged documents

jopegk · #1 06-11-2014, 01:42 AM

Hi,

I wonder if it is possible to print my mail merged document as stapled copies.

My document consists of 18 pages and has the merge field as a copy number on every page. While the document is big I want it auto-stapled in the printer (my printer has that function) but I can't find a way to make that happen and still keep the unique copy number on every copy.

Thanks!

macropod · #2 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 · #3 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?

macropod · #4 06-12-2014, 01:02 AM

I suspect the error message is occurring because you're using an Excel data source and it has 'used' rows below the last data row. You could probably prevent the error by inserting:
If Trim(.DataFields("FieldName")) = "" Then Exit For
after:
.ActiveRecord = i
where 'FieldName' is the name of any field in the data source that should never be empty.

jopegk · #5 06-12-2014, 01:38 AM

So I need to insert the field name of my database where it says "FieldName" in your code?

What are the fields called? a1?

macropod · #6 06-12-2014, 01:41 AM

The header row should have the field names - they also appear in your mailmerge main document, listed in the 'Insert Mergefield' dropdown.

jopegk · #7 06-12-2014, 01:49 AM

Now I did that, but the message still appears.

Should the code say "Form" instead of "For"?

macropod · #8 06-12-2014, 02:12 AM

No, it should say 'Exit For', as posted.

When you get the error message, does the popup display a 'debug' button? if so, what code line is highlighted? Also, if you hover the mouse over the 'i' in '.ActiveRecord = i', note the number then check the corresponding row in the data source (which should be one more than the 'i' value). Check whether that row has data and whether there is anything materially different about the data on that row from the other rows.

jopegk · #9 06-12-2014, 02:36 AM

Yes, there's a debug-button and the row ".ActiveRecord = i" is highlighted. When I hover the mouse over it, it says ".ActiveRecord = i = False".

macropod · #10 06-12-2014, 04:36 AM

"i = False" seems odd. The other thing you could try is inserting:
On Error Resume Next
before:
With .MailMerge

jopegk · #11 06-12-2014, 05:21 AM

No message!
Thanks a lot!

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