Code to print columns with active rows not working

Here's the code I have for each column. This is for column H, Routing --

Sub Print_Routing()
'

Dim PrintArr As Variant
PrintArr = Array("H")
For i = 0 To UBound(PrintArr)
Rows("1:2").Select
    Selection.EntireRow.Hidden = True
    
    Columns("H:H").Select
    Selection.AutoFilter Field:=8, Criteria1:="<>"
    Columns("D:EV").Hidden = True
    Columns(PrintArr(i)).Hidden = False
    ActiveSheet.PrintPreview
Next i
     Columns("D:EV").Hidden = False
    Selection.EntireRow.Hidden = False
        Selection.AutoFilter Field:=10
     
End Sub