View Single Post
  #2   Report Post  
Posted to microsoft.public.word.mailmerge.fields
Peter Jamieson
 
Posts: n/a
Default print a multipage letter on different papers

This appears to be the same as the question posted by "linda" which I
replied to a couple of hours ago:

I think the only way to do this is to use VBA to perform a separate merge
for each document (or you may be able to merge to a new document and then
split it up).

You can try the following VBA:

Sub PrintOneDocPerSourceRec()
Dim intSourceRecord
Dim objMerge As Word.MailMerge
Dim strOutputDocumentName As String
Dim TerminateMerge As Boolean

' Need to set up this object as the ActiveDocument changes when the
' merge is performed. Besides, it's clearer.

Set objMerge = ActiveDocument.MailMerge
With objMerge

' If no data source has been defined, do it here using OpenDataSource.
' But if it is already defined in the document, you should not need
' to define it here.

' .OpenDataSource _
' Name:="whatever"

intSourceRecord = 1
TerminateMerge = False

Do Until TerminateMerge
.DataSource.ActiveRecord = intSourceRecord

' if we have gone past the end (and possibly, if there are no records)
' then the Activerecord will not be what we have just tried to set it to

If .DataSource.ActiveRecord intSourceRecord Then
TerminateMerge = True
' the record exists
Else

.DataSource.FirstRecord = intSourceRecord
.DataSource.LastRecord = intSourceRecord
.Destination = wdSendToPrinter 'please check the constant name
.Execute

intSourceRecord = intSourceRecord + 1
End If
Loop
End With
End Sub

If you haven't used Word VBA Macros before, see

http://word.mvps.org/FAQs/MacrosVBA/CreateAMacro.htm

Peter Jamieson

"PARSONS" wrote in message
...
The mail merge contains 50 3-pg letters. How do you get it to print the
first pg of every letter on letterhead and the 2nd and 3rd on another
paper.
We've tried everything for 2 days and nothing works! IS IT EVEN POSSIBLE?