why this code not working
For one, your naming convention is a bit confusing. rng, rng1, rng2
would be better named rngCurrent, rngPrint, rngSelect instead of the
more used and lazy method that we all want to get into. My suspects
are it is a conflict with your rng names, but I need to know more of
the application to make a more def responce.
Thurman
"sulu" wrote in message ...
hi all,
i just want to select first 6 column s of my filtered
data range
what is wrong with my code?
Set rng = ActiveSheet.AutoFilter.Range
On Error Resume Next
With rng
Set rng1 = .Offset(1, 0).Resize(.Rows.Count - 1, 6) _
.SpecialCells(xlCellTypeVisible)
End With
With ActiveSheet.PageSetup
.PrintArea = Range ("rng2")
.CenterFooter = "Page &P of &N"
.RightFooter = "Printed on &D"
.PrintHeadings = False
.CenterHorizontally = True
.Orientation = xlPortrait
.PrintTitleRows = "$2:$2"
.FitToPagesWide = 1
End With
Sulu
|