Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
ReferenceStyle:=xlR1C1
Hi TWIMC
I want to set a Range object to the xlR1C1Address of the print area of the active sheet Dim rge as Range Set rge = ActiveSheet.PageSetup.PrintArea The problem is that the return of ActiveSheet.PageSetup.PrintArea is a string and not an address object. Therefore can someone tell me how I can set rge to print area by converting the string into an address range? TIA KM |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
ReferenceStyle:=xlR1C1
Kevin,
Try this: Private Sub CommandButton1_Click() Dim r As Range With ActiveSheet Set r = .Range(.PageSetup.PrintArea) End With 'r.Select End Sub NickHK "Kevin McCartney" wrote in message ... Hi TWIMC I want to set a Range object to the xlR1C1Address of the print area of the active sheet Dim rge as Range Set rge = ActiveSheet.PageSetup.PrintArea The problem is that the return of ActiveSheet.PageSetup.PrintArea is a string and not an address object. Therefore can someone tell me how I can set rge to print area by converting the string into an address range? TIA KM |