Print certain rows of certain columns based on variable

Maybe

Sub test()
Range("A2").CurrentRegion.AutoFilter 9, Criteria1:="Yes"
Range("D:F").EntireColumn.Hidden = True
Range("H:I").EntireColumn.Hidden = True
Range("A2").CurrentRegion.PrintPreview
ActiveSheet.Columns.Hidden = False
Range("A2").CurrentRegion.AutoFilter
End Sub

Kind regards
Leo