Code to print columns with active rows not working

Debbie, try this:

Option Explicit

Sub PrintRouting()
    PrintCol "H3", Array("A", "D:EV")
End Sub

Sub Print_Metal()
    PrintCol "I3", Array("A", "D:EV")
End Sub

Sub Print_Trim()
    PrintCol "J3", Array("A", "D:EV")
End Sub

Sub Print_Vinyl()
    PrintCol "K3", Array("A", "D:EV")
End Sub

Sub Print_Print()
    PrintCol "L3", Array("A", "D:EV")
End Sub

Sub Print_Paint()
    PrintCol "M3", Array("A", "D:EV")
End Sub

Sub PrintCol(sRng As String, avHide As Variant)
    Dim i As Long
    Dim v As Variant
    
    With ActiveSheet
        .AutoFilterMode = False
        .Rows("1:2").Hidden = True

        .PageSetup.PrintArea = .UsedRange.Address
    
        For Each v In avHide
            .Columns(v).Hidden = True
        Next v
        
        With .Range(sRng).EntireColumn
            .Hidden = False
            .Range(sRng).AutoFilter Field:=.Column, Criteria1:="<>"
        End With
        .PrintPreview
        
        .AutoFilterMode = False
        .Columns.Hidden = False
        .Rows.Hidden = False
    End With
End Sub