Print only first page of each section in a merged doc

[Hilary]

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

 

[Doug Robbins - Word MVP]

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


--
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

 

[Hilary]

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