Print each section separately

[Garry Rathbone]

I'd like to send each section of a document to the
printer as a separate job. This is because some sections
require specific printer codes. I've seen the code on the
newsgroup somewhere but now I can't find it again!
Basically, I need to loop through the sections of a
document and print each section.

Thanks for your help,

Garry

 

[Mike Seddon]

Gary,

In the print ranges on the print menu you can select which sections.
Eg: if you put s1 then section 1 will be printed. You can also print
pages within sections
P1S1 - P3S1 will print pages 1 2 & 3 in section 1

Hope that helps.

Cheers,

Mike


www.kutchka.com

Download KKopy - The FREE fast, easy cut & paste tool.

 

[Garry Rathbone]

Sorry Mike, I should have mentioned. This needs to be
under VBA.

 

[Mike Seddon]

Ah. Sorry then. My help was much of a help was it.

Have you tried the VBA group? microsoft.public.word.VBA.addins

CHeers

Mike
KKopy - the FREE smart cut & paste tool from Kutchka.

Download it for free at
http://www.kutchka.com/downloads/DownloadKKopy.asp

 

[Doug Robbins - Word MVP - DELETE UPPERCASE CHARACT]

Hi Garry,

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

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