printing records

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

David Gerstman - 16 Mar 2004 01:21 GMT

In order to loop through all records of a Mail Merge list I use a loop like this
With ActiveDocument.MailMerge.DataSourc
.ActiveRecord = wdFirstRecor
D
If .ActiveRecord <> .RecordCount The
.ActiveRecord = wdNextRecor
ind = ind +
End I
Loop Until .ActiveRecord = .RecordCoun
End Wit

How do I print out each record? the property .activerecord doesn't have a .Destination property (or any other). How can I direct each record separately to the printer
Thank you

Reply to this Message

Doug Robbins - Word MVP - DELETE UPPERCASE CHARACTERS FROM EMAIL ADDRESS - 16 Mar 2004 02:06 GMT

If you execute the merge to a new document and then run the following macro
with that document active, each record will be printed as a separate print
job:

Dim i As Long
For i = 1 To ActiveDocument.Sections.Count
ActiveDocument.PrintOut Range:=wdPrintFromTo, From:="s" & i, To:="s" & i
Next i

Signature

Please post any further questions or followup to the newsgroups for the
benefit of others who may be interested. Unsolicited questions forwarded
directly to me will only be answered on a paid consulting basis.

Hope this helps
Doug Robbins - Word MVP

> In order to loop through all records of a Mail Merge list I use a loop
> like this:
[quoted text clipped - 12 lines]
> separately to the printer?
> Thank you.

Reply to this Message