for mango

[Stephen Warker]

it is still not working, it did not print just the rows that contain data?

anything else?

Steve

[Mongo]

I'm definitely having a drainbamaged morning...

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

And, gee, this time I even tested it... Sorry for the red-herrings!

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]