#1
|
|||
|
|||
How to staple mail merged documents
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! |
#2
|
||||
|
||||
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
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
#3
|
|||
|
|||
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? |
#4
|
||||
|
||||
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.
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
#5
|
|||
|
|||
So I need to insert the field name of my database where it says "FieldName" in your code?
What are the fields called? a1? |
#6
|
||||
|
||||
The header row should have the field names - they also appear in your mailmerge main document, listed in the 'Insert Mergefield' dropdown.
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
#7
|
|||
|
|||
Now I did that, but the message still appears.
Should the code say "Form" instead of "For"? |
#8
|
||||
|
||||
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.
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
#9
|
|||
|
|||
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".
|
#10
|
||||
|
||||
"i = False" seems odd. The other thing you could try is inserting:
On Error Resume Next before: With .MailMerge
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
#11
|
|||
|
|||
No message!
Thanks a lot! |
#12
|
|||
|
|||
Is there a way to ask what page range in this document you want to print out. I have a similar issue with a larger document that needs to be mail merge printed and stapled out, but there are times that I need to narrow down the range of pages.
Thanks! |
#13
|
||||
|
||||
Preferably, you'd use the mailmerge filters to output only the records you actually want to print. Otherwise, you can send the output to a new Word document, then tell your printer which Sections of the output document to print, by inserting the section references into the print dialogue (e.g. s2-s5,s7,s9-s11).
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
#14
|
|||
|
|||
Quote:
|
#15
|
||||
|
||||
As I said:
Quote:
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
Thread Tools | |
Display Modes | |
|
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 |