set print area from selected range

Hi, I have some code which selected a certain amount of columns depending on
whether they contain values or not. Once I have this range set and I select
it I want to set this as the print area. I am not quite sure how to do
this. for example I tried:

rngUnion.Select
ActiveSheet.PageSetup.PrintArea = ActiveCell.CurrentRegion.Address

But to no avail. Any help would be gratefully received.

Try:
ActiveSheet.PageSetup.PrintArea = Selection.address

HTH
--
AP

"Graham Whitehead" <[email protected]> a écrit dans le message de
news: [email protected]...
> Hi, I have some code which selected a certain amount of columns depending
> on whether they contain values or not. Once I have this range set and I
> select it I want to set this as the print area. I am not quite sure how
> to do this. for example I tried:
>
> rngUnion.Select
> ActiveSheet.PageSetup.PrintArea = ActiveCell.CurrentRegion.Address
>
> But to no avail. Any help would be gratefully received.
>

Thanks, but didnt work.

"Ardus Petus" <[email protected]> wrote in message
news:[email protected]...
> Try:
> ActiveSheet.PageSetup.PrintArea = Selection.address
>
> HTH
> --
> AP
>
> "Graham Whitehead" <[email protected]> a écrit dans le message de
> news: [email protected]...
>> Hi, I have some code which selected a certain amount of columns depending
>> on whether they contain values or not. Once I have this range set and I
>> select it I want to set this as the print area. I am not quite sure how
>> to do this. for example I tried:
>>
>> rngUnion.Select
>> ActiveSheet.PageSetup.PrintArea = ActiveCell.CurrentRegion.Address
>>
>> But to no avail. Any help would be gratefully received.
>>
>
>

The code I gave you sets the current selection as printarea.
Select something else!

Cheers,
--
AP

"Graham Whitehead" <[email protected]> a écrit dans le message de
news: [email protected]...
> Thanks, but didnt work.
>
> "Ardus Petus" <[email protected]> wrote in message
> news:[email protected]...
>> Try:
>> ActiveSheet.PageSetup.PrintArea = Selection.address
>>
>> HTH
>> --
>> AP
>>
>> "Graham Whitehead" <[email protected]> a écrit dans le message de
>> news: [email protected]...
>>> Hi, I have some code which selected a certain amount of columns
>>> depending on whether they contain values or not. Once I have this range
>>> set and I select it I want to set this as the print area. I am not
>>> quite sure how to do this. for example I tried:
>>>
>>> rngUnion.Select
>>> ActiveSheet.PageSetup.PrintArea = ActiveCell.CurrentRegion.Address
>>>
>>> But to no avail. Any help would be gratefully received.
>>>
>>
>>
>
>