Gefilterde lijst automatisch op juiste lengte laten printen

[CasperEx]

Beste forumleden

Ik heb van VenA enige dagen geleden deze VBA code gekregen om mijn printopdracht automatisch te laten aanpassen aan de lengte van de draaitabel.

Sub macro1()

Set r = Sheets("Blad5").PivotTables(1).TableRange1
r.PrintPreview



End Sub

Is het nu ook mogelijk om deze code zo aan te passen dat deze voor een gefilterde lijst werkt? Dus naarmate de lijst door een filter korter (of juist langer) wordt, past ook de printopdracht zich automatisch aan.

Ik heb een voorbeeldbestandje bijgevoegd

Bekijk bijlage Map2 dit is een test met een gewone lijst.xlsm

Alvast weer bedankt voor de moeite

 

[edmoor]

Je voorbeeld document bevat geen draaitabel.

 

[cow18]

eventjes zonder na te denken op een zondagmorgen

Sub macro1()
    Set r = Sheets("Blad3").Range("C3").CurrentRegion
    r.PrintPreview
End Sub

 

[edmoor]

Maar dan op Sheets("De uitleg")

 

[cow18]

ja, 't was zondagmorgen

 

[VenA]

Set r mag ook weggelaten worden. (stond er nog in om even in het 'locals' venster te kijken hoe de range van een draaitabel ook alweer heet)

Sheets("De uitleg").Cells(3, 3).CurrentRegion.PrintPreview

 

[CasperEx]

En nu is het maandagavond en hebben jullie mij erg blij gemaakt
Ook deze macro werkt helemaal top! Dank jullie wel