Macro script for setting Print Area

J

JB2010

Hi

Can someone list the full script i would need for a macro that would
highlight all the non blank cells of a worksheet & set that as the print area.

I have tried recording my own, basically; highlight Cell A1, Ctrl+Shift Down
then Control+Shift Right, but the resulting script is still specific to the
cell references of the sheet i used to record on.

I do not know how to program it for just all active cells regardless of what
they are, from sheet to sheet.

Any help gratefully recieved.


Cheers


jb
 
C

Colin Sandall

JB,

This: Selection.CurrentRegion.Select

Will select the current region providing that there are no entire rows or
columns blank, i.e. it will select from the cell uppermost and to the left
and bottommost and to the right before the next blank columns and rows.

Regards

Colin
 
C

Colin Sandall

I forgot to add:

Sheets ("xxx").Select
Range("A1").Select (Assuming data starts here)
Selection.CurrentRegion.Select

Colin
 
D

Dave Peterson

Maybe:

With ActiveSheet
.PageSetup.PrintArea = .Range("A1").CurrentRegion.Address
end with
 
Top