Applying second filter and set print area

[Soniya]

Hi all,

I have seven column(A:G) data starting from row2 as
label and from row 3 onwards data, which would be
filtered on column 7. I want to apply a second filter
from this filtered data on column 2 and then set print
area as the filtered range less one column (A:F)

how can I do this with code?

TIA

Soniya

 

[Tom Ogilvy]

Application.AutoFilter.Range.Autofilter Field:=2, Criteria1:="ABCD"
Activesheet.PageSetup.PrintArea =
Application.Autofilter.Range.Resize(,6).Address