Determining current Print Area.

[ChadInAtlanta]

I have determined how to set the print area of a sheet.

psActivePage.PrintArea = UserRange.Address

But I can't figure out how to get what the current print area range is once it has been set. I would think this would work, but it gives an error.

Set rPrintArea = ActiveWorkbook.Names("Print_Area").RefersToRange

 

[jindon]

Not sure if this is what you wanted...

psActivePage.PageSetup.PrintArea = UserRange.Address
rPrintArea = ActiveWorkbook.Names("Print_Area").Address

 

[ChadInAtlanta]

I had tried that. This is the function I am working in. When I run this, it gives me a run time error 438, Object doesn't support this property or method when I try to set rPrintArea.


Public Sub ExtendLine()
'
'
Dim iCols As Integer
Dim rPrintArea As Range

Set rPrintArea = ActiveWorkbook.Names("Print_Area").Address

'Set rPrintArea = Range("B2", ActiveCell.Address)
rPrintArea.Select

iCols = Selection.Columns.Count
Selection.Find(What:="Notes:", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=True, SearchFormat:=False).Activate

ActiveCell.Select
Selection.Resize(1, iCols).Select

With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With

End Sub

 

[GTO]

I have determined how to set the print area of a sheet.

psActivePage.PrintArea = UserRange.Address

But I can't figure out how to get what the current print area range is once it has been set. I would think this would work, but it gives an error.

Set rPrintArea = ActiveWorkbook.Names("Print_Area").RefersToRange

Greetings Chad,

PrintArea can exist for ea sheet, so you would not refer to ThisWorkbook/ActiveWorkbook. Also, it is a string already, so just:

strPrintArea=ActiveSheet.PageSetup.PrintArea

...will return the address.

Hope that helps,

Mark

 

[ChadInAtlanta]

Yes, that works in getting the string ( $B$2:$P$48 ), but I still can't select the range.

These are the things I've tried.
rPrintArea.Address = strPrintArea
rPrintArea(strPrintArea).Select ' I really thought this one should work.
rPrintArea("strPrintArea").Select

 

[Norie]

Chad

Why do you want to get the range of the print area?

 

[ChadInAtlanta]

We produce exhibits at work and have standards for what they should look like. In the procedure above, I'm putting a thin line from above the Notes section of the exhibit. But if I can figure out how to select the range, I will check all kinds of little things like font size in the range, that all footnotes are there, determine the number of columns in the range, etc.

 

[GTO]

Chad,

Just looking at your previous code and your current notation. If you are still trying to set the area to a range first, I don't see any advantage to this for simply selecting the area. Try:

ActiveSheet.Range(ActiveSheet.PageSetup.PrintArea).Select

Doesn't that do what you want?

Mark

 

[ChadInAtlanta]

That works. Thanks.