it is still not working, it did not print just the rows that contain data?
anything else?
Steve
Printable View
it is still not working, it did not print just the rows that contain data?
anything else?
Steve
I'm definitely having a drainbamaged morning...
And, gee, this time I even tested it... Sorry for the red-herrings! :)Code:Sub p()
Dim pntRng As Range
With ActiveSheet
Set pntRng = .Range("A101:IV65535")
.PageSetup.PrintArea = pntRng.Parent.UsedRange.Address
.PrintOut
Set pntRng = Nothing
End With
End Sub
FWIW, it's Mongo, nicht mango -- still haven't recovered from a forced warm mango juice diet a decade ago...
[Edited by Mongo on 07-10-2000 at 01:31 PM]