Selecting a range composed of current region + 2 rows

[Bruce Roberson]

The range below selects a contigous region 3 rows below
the one cell range called "start". But what if I want the
print area to include not only that area, but I need it to
skip a blank line and then include the totals which reside
in the following row. I do not want to eliminate the blank
line to make this work.


Range("Start").Offset(3, 0).CurrentRegion.PrintPreview

I should know how to do this by now, but I it is late in
the day and I am stuck at the moment.

Thanks,


Bruce

 

[Bob Phillips]

Hi Bruce,

one way

Dim oRng As Range

Set oRng = Range("Start").Offset(3, 0).CurrentRegion
oRng.Resize(oRng.rows.Count + 2, oRng.columns.Count).PrintPreview

 

[Guest]

Very good Bob, thanks once again.


Bruce

-----Original Message-----
Hi Bruce,

one way

Dim oRng As Range

Set oRng = Range("Start").Offset(3, 0).CurrentRegion
oRng.Resize(oRng.rows.Count + 2, oRng.columns.Count).PrintPreview

--

HTH

RP




.