Print only first page of each section in a merged doc

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Hilary - 01 Dec 2005 22:35 GMT

Hi.

I have a mail merge doc with over 100 sections. Each section has four pages.

I'd like to print only the first page of each section.

Is this possible without having to do p1s1, p1s2, p1s3, etc.?

Thanks!

Hilary

Reply to this Message

Doug Robbins - Word MVP - 01 Dec 2005 23:23 GMT

Use a macro containing the following code:

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

Signature

Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

> Hi.
>
[quoted text clipped - 8 lines]
>
> Hilary

Reply to this Message

Hilary - 01 Dec 2005 23:58 GMT

Perfect! We were able to accomplish it with:

Dim i As Long
With ActiveDocument
For i = 1 To .Sections.Count
.PrintOut Range:=wdPrintFromTo, From:="p" & ((i - 1) * 4 + 1) & "s"
& i, To:="p" & ((i - 1) * 4 + 1) & "s" & i
Next i
End With

Thanks so much!

Hilary

> Use a macro containing the following code:
>
[quoted text clipped - 17 lines]
> >
> > Hilary

Reply to this Message