autofilter and print macro

[micfly]

If I F8 through this macro the autofilter turns off when it gets to the .printout? I need it to print the filtered results first before turning off the autofilter. What's wrong?

Sub Funding()
'
' Funding Macro
'
    Application.EnableEvents = False
    Application.ScreenUpdating = False
  
    ActiveSheet.Unprotect
    Range("A10:T10").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$10:$T$406").AutoFilter Field:=6, Criteria1:="F"
    Selection.AutoFilter
   
    ActiveSheet.PrintOut
    
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

 

[MARK858]

Try commenting out the 2nd Selection.Autofilter

 

[micfly]

Like this? Still not working.

Sub Funding()
'
' Funding Macro
'
    Application.EnableEvents = False
    Application.ScreenUpdating = False
  
    ActiveSheet.Unprotect
    Range("A10:T10").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$10:$T$406").AutoFilter Field:=6, Criteria1:="F"
    ' Selection.AutoFilter
   
    ActiveSheet.PrintOut
    
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

 

[micfly]

This worked.

Sub Funding()
'
' Funding Macro
'
'
    Application.EnableEvents = False
    Application.ScreenUpdating = False
  
    ActiveSheet.Unprotect
    Range("A10:T10").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$10:$T$406").AutoFilter Field:=6, Criteria1:="F"
   
    ActiveSheet.PrintOut
    Selection.AutoFilter
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    Application.EnableEvents = True
    Application.ScreenUpdating = True
    ActiveSheet.Protect
End Sub