Dear Pascal,

Thanks for your help.

This is the solution that I needed. It is simple and
straightforward for a beginner like me.


Rgds,
Frankie

-----Original Message-----
Hi Frankie
ActiveSheet.PageSetup.PrintArea = ActiveCell.Address
(False, False) & ":" &
ActiveCell.End(xlDown).Address(False, False)

Cordially
Pascal

"Frankie" a écrit
dans le message de
...
I'm a beginner in Excel VBA. I have come across
problem
to set the selected print area as follows :

ActiveSheet.PageSetup.PrintArea = "Range(Activecell,
Activecell.End(xlDown))"

It seems VBA only accepts absolute address :

ActiveSheet.PageSetup.PrintArea = "$B$4:$H$16"


Please give me some clues for setting a relative
reference
print area instead of an abosolute one.

Thanks.


Rgds,
Frankie


.