why this code not working
Sulu,
You need to pass a string value to .PrintArea
.PrintArea = rng1.Address
or, if you already have a Rng2 named range:
.PrintArea = Range("rng2").Address
HTH,
Bernie
Excel MVP
"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
|