here is what i have, but i am geting an error. I need to be able to print from A101 to the G column, but only up until the las t record in that column. I mean is if the are records from a101 to A 105, i need to just print them. But, this range can change.

I have this code, but I am getting an undeclared error

Sub p()
Dim rowRng As Range, pntRng As Range

With ActiveSheet
Set rowRng = .Range("101:65536")
Set pntRng = Intersect(pntRng.Parent.UsedRange, rowRng)
.PageSetup.PrintArea = pntRng.Address
.PrintOut
Set rowRng = Nothing
Set rowRng = Nothing
End With

End Sub