-
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
-
My bad, I left out init pntRng.
This be better...
Code:
Sub p()
Dim rowRng As Range, pntRng As Range
With ActiveSheet
Set rowRng = .Range("101:65536")
' Bigfoot sighting...
Set pntRng = rowRng
Set pntRng = Intersect(pntRng.Parent.UsedRange, rowRng)
.PageSetup.PrintArea = pntRng.Address
.PrintOut
Set rowRng = Nothing
Set rowRng = Nothing
End With
End Sub
[Edited by Mongo on 07-10-2000 at 11:27 AM]
