Print range arguments

[Troy]

I want to set a print range from b3 to activecell. I can't get the syntax right. Should I name the range first? That didn't seem to work either. Any suggestions? Thanks.

 

[Legacy 98055]

Hi
Select your range and then type "Print_Area" in the "Name Box" directly above A1.

If you are speaking in terms of VBA, then use the following line:

ActiveSheet.PageSetup.PrintArea = Selection.Address

Tom

 

[Troy]

For some reason I can't grasp the concept of creating a range. My range is not selected, only the last cell. I tried several instances of:
ActiveSheet.PageSetup.PrintArea = "$B$3:Active.cell"
or
= "$B$3:Active.cell.address"

 

[Legacy 98055]

Now I get it.

Sub SetPrint()
ActiveSheet.PageSetup.PrintArea = Range("B3:" & ActiveCell.Address).Address
End Sub

Example:
ActiveCell is cell N22
ActiveCell.Address = "$N$22"
MyRangeAddress = "B3:" & ActiveCell.Address
MyRangeAddress = "B3:N22" or actually "B3:$N$22"
PrintArea = Range("B3:N22").Address

This would work too.
ActiveSheet.PageSetup.PrintArea = "B3:" & ActiveCell.Address

Tom
This message was edited by TsTom on 2002-08-26 05:25