Alleen gefilterde rijen uitprinten

[Johil]

Beste mensenBekijk bijlage AlleenGefilterdPrinten.xlsm
Bijgaand treffen jullie mijn drie pogingen aan om alleen de gefilterde rijen te printen.
Onder de drie knoppen staan de (afgekeken) codes.
Het is de bedoeling om na de filtering alleen die gefilterde rijen uit te printen.
Ondank uren proberen lukt het mij niet. Steeds worden alle rijen uitgeprint.
Natuurlijk kun je d.m.v. selecteren ook de gefilterde rijen uitprinten, maar ik wil het voor de gebruikers eenvoudiger maken.
Wie kan een oplossing aandragen.
Ik dank jullie bij voorbaat voor een reactie.
Joop

 

[pasan]

http://www.rondebruin.nl/print.htm#Liners
hier gevonden en beetje aangepast

probeer deze is nadat je een filter hebt toegepast

Sub Printen()
    Dim rng As Range
    Application.ScreenUpdating = False

    With ActiveSheet.PageSetup
       .Orientation = xlLandscape
      ''.Orientation = xlPortrait
       .PaperSize = xlPaperA4
       .FitToPagesWide = 1
       .FitToPagesTall = 0
    End With

    Set rng = Range("A1", Range("A" & Rows.Count).End(xlUp))

    With rng.Columns(1)

        .Parent.PrintOut
    End With

    Application.ScreenUpdating = True
End Sub

 

[Johil]

Beste Pasan
Heel hartelijk bedankt. Ik heb het perfect aan het werken gekregen.
Ik zal de status op opgelost zetten.
Vriendelijke groet.
Joop