Set print Area macro

[Guest]

I have a worksheet that generates a different size of print area each time the data extraction is done from the original system. I want to set this print area for the users using a macro; however if I do this using the End button and Arrow keys to find the ‘edges’ of the sheet data area, the macro records these as an ‘absolute’ area (e.g. a1:z99) as opposed to a ‘relative’ area (e.g. ‘End, Down: End, Right).

How do I counter this??

Thanks in advance.

John

 

[rikrak]

Hi John,

Try this:
ActiveSheet.PageSetup.printarea = ActiveSheet.UsedRange.Address
This message was edited by rikrak on 2002-10-07 15:48