print filtered columns

[tn80]

Hi,
I need to filter one column at a time for non-blanks, then print the results, and repeat for the next 50+ columns....I have the following manual codes:

Sub PrintNonBlanks()

    Range("B3").Select
    Selection.AutoFilter Field:=2, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _:=True
    Range("B3").Select
    Selection.AutoFilter Field:=2

    Range("C3").Select
    Selection.AutoFilter Field:=3, Criteria1:="<>"
    ActiveWindow.SelectedSheets.PrintOut From:=2, To:=2, Copies:=1, Collate _:=True
    Selection.AutoFilter Field:=3

....

End Sub

Is there a way to loop this with better codes, so it can start at cell B3 to BD3, page 1-55 (without me repeating the codes for 50+ times?)?

Thanks in advance for your help.

[tn80]

I was able to solve this myself with the following codes... :D

Sub PrintNonBlank()
    
    Dim Client As Long
    
    For Client = 2 To 55
        Selection.AutoFilter Field:=Client, Criteria1:="<>"
        ActiveWindow.SelectedSheets.PrintOut From:=Client - 1, To:=Client - 1, Copies:=1, Collate _
            :=True
        Selection.AutoFilter Field:=Client
    Next Client
End Sub