dmv vba geselecteerde gekleurde gedeelte printen

[arierood]

Met onderstaande code worden de rijen weergegeven waarvan de PM binnen 180 dagen of minder afloopt. Is het mogelijk om dmv VBA diezelfde selectie ook te printen? Gr. Arie

 

[arierood]

Sorry, de code

Sub PM180()
For Each c In [U3:U500]
If c <> "" Then
    Select Case c - Date
    Case 121 To 180
        c.Offset(, 0).Resize(, 1).Interior.ColorIndex = 6
    End Select
End If
Next
End Sub

 

[arierood]

Misschien dmv rijen die dan niet geselecteerd zijn tijdelijk verbergen?
Graag jullie hulp Gr. Arie