Printing each page in doc separately

[Mark Christensen]

Hello,

I've got Word 2002 SP3. I've got a 112 page document that I need to print
each page, but instead of printing all 112 pages at once, I want to print
each page separately (I'm doing some variable data printing). Obviously I
don't want to have to go to File > Print, input the page number and then hit
print 112 times. Is there a way to automate this process with a Macro or
something?

I'm using the mail merge in Word with my source data coming from an Excel
file. Can what I'm trying to do be better accomplished in Excel?

I appreciate the help!

Mark

 

[Mark Christensen]

Anyone?

Is there another forum I should post this in?

 

[Doug Robbins - Word MVP]

If the document was created by mail merge, each page will actually be a
Section. Therefore, you need to iterate through the sections if you want to
print them separately. Here is a macro that will do that:

Dim i As Long
With ActiveDocument
For i = 1 To .Sections.Count
.PrintOut Range:=wdPrintFromTo, From:="s" & i, To:="s" & 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

 

[Doug Robbins - Word MVP]

Be patient

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

 

[Mark Christensen]

Thank you! That worked perfectly - just as I had hoped!