Individual Page Selection

[Chris Shaw]

HOWDY!

The following lines copies the entire print range for the activeworksheet:

Dim wks as Worksheet
wks.Range(wks.PageSetup.PrintArea).Copy

How can I alter this so that it will select the individual pages inside the selected print range instead of the ENTIRE print area?

Thanks.

- Chris

[Ron de Bruin]

Hi Chris

You must loop throught the pagebreaks
Maybe this example to copy each page in new sheet will help you
http://www.rondebruin.nl/hpagebreaks.htm



--
Regards Ron de Bruin
http://www.rondebruin.nl


"Chris Shaw" <[email protected]> wrote in message
news:[email protected]...
>
> HOWDY!
>
> The following lines copies the entire print range for the
> activeworksheet:
>
> Dim wks as Worksheet
> wks.Range(wks.PageSetup.PrintArea).Copy
>
> How can I alter this so that it will select the individual pages inside
> the selected print range instead of the ENTIRE print area?
>
> Thanks.
>
> - Chris
>
>
> --
> Chris Shaw
> ------------------------------------------------------------------------
> Chris Shaw's Profile: http://www.excelforum.com/member.php...o&userid=25041
> View this thread: http://www.excelforum.com/showthread...hreadid=386214
>