Print each section separately

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Garry Rathbone - 09 Dec 2003 09:19 GMT

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

Reply to this Message

Mike Seddon - 09 Dec 2003 13:02 GMT

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.

Reply to this Message

Garry Rathbone - 09 Dec 2003 13:33 GMT

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

>-----Original Message-----
>Gary,
[quoted text clipped - 15 lines]
>
>.

Reply to this Message

Mike Seddon - 09 Dec 2003 20:12 GMT

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

Reply to this Message

Doug Robbins - Word MVP - DELETE UPPERCASE CHARACTERS FROM EMAIL ADDRESS - 11 Dec 2003 08:44 GMT

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

> Sorry Mike, I should have mentioned. This needs to be
> under VBA.
[quoted text clipped - 20 lines]
> >
> >.

Reply to this Message