VBA Print Area Syntax

[Mozzz]

I think I have the variables set up right, but I can't get the PageSetup.PrintArea right.

Here is my code:

Sub SetPrint()
' Setup Print and View 13 Month Trend
Dim EndRow As Variant
Dim TopRow As Variant
Dim NumberOfRows As Integer


NumberOfRows = Cells(Rows.Count, 1).End(xlUp).Row * -1
EndRow = Cells(Rows.Count, 1).End(xlUp).End(xlToRight).Address
TopRow = Cells(Rows.Count, 1).End(xlUp).End(xlToRight).Offset(NumberOfRows + 1, -12).Address
ActiveSheet.PageSetup.PrintArea = TopRow: EndRow


End Sub


What am I doing wrong?

Help!

 

[Mozzz]

I got it to work using this line:

With ActiveSheet
.PageSetup.PrintArea = .Range(TopRow, EndRow).Address
End With

I don't understand the period in front of Range.

 

[Nalani]

Probably a better explanation out there but,

The Period "fully qualifies" whatever you are working with.

In your instance, since you had With ActiveSheet, the period lets the code know that you are working with the ActiveSheet and no other.

I do remember reading a post from Lenze on this board that fully explains this, with examples. Just not up to finding it again.