Printmacro icm autofilter

[pf.de.vries]

Dag allemaal,

Ik heb een bestandje, zie bijlage, en daar heb ik een autofilter op toegepast.
Nu wil ik echter met de knop Printen de gegevens printen zoals het er op het scherm uit ziet, dwz al dan niet met selectie door autofilter.

op een of andere manier moet dus het printbereik afhankelijk zijn van de autofilter.

Wie kan mij helpen? BVD

Groeten Pascal

 

[LucB]

Pascal,

Probeer deze code eens.

Private Sub CommandButton2_Click() 'Printen
Range("B1").CurrentRegion.SpecialCells(xlCellTypeVisible).Select
Selection.PrintOut
Range("A1").Select
End Sub

Afdruk op "Liggend" instellen.

 

[pf.de.vries]

Printen icm autofilter

Hallo Luc,

Bedankt voor de snelle reactie, maar...
Wanneer ik nu print negeert excel alle niet getoonde regels, hij print ze alleen niet af.
Oftewel, als ik een of twee filters hanteer, krijg ik wel 2 tot 5 pagina's uitgeprint, omdat alle niet getoonde regels op de print als blanco worden 'geprint'.

Dus dit is nog net niet helemaal wat ik bedoel.

 

[LucB]

Pascal,

Ik heb waarschijnlijk bij mijn enige test geluk gehad.
Met CurrentRegion komt het niet altijd goed.

Deze doet het bij mij met 2 filteringen.

Private Sub CommandButton2_Click() 'Printen
Range("B1:F55").Select 'F55 aanpassen
Selection.PrintOut
Range("A1").Select
End Sub

F55 aanpassen aan het aantal pagina's.

 

[pf.de.vries]

Beste Luc,

Je oplossing werkt perfect:thumb: , maar het is een dynamische lijst met oefeningen, dus kan de laatste Cel niet automatisch gekozen worden door een macro?

 

[LucB]

Pascal,

Hoe gaat deze.

Private Sub CommandButton2_Click() 'Printen
Dim x As Long
x = Cells.SpecialCells(xlCellTypeVisible)(Rows.Count, "B").End(xlUp).Row
Range("B1:F" & x).Select
Selection.PrintOut
If ActiveSheet.FilterMode = True Then
ActiveSheet.ShowAllData
End If
Range("A1").Select
End Sub

 

[pf.de.vries]

Beste Luc,

Je oplossing werkt perfect:thumb: , maar het is een dynamische lijst met oefeningen, dus kan de laatste Cel niet automatisch gekozen worden door een macro?

NB: Kolom E wordt niet per definitie ingevuld, dus een macro moet de laatste cel zoeken in kolom B en vervolgens het bereik aan passen t/m kolom E in de zelfde rij.

 

[LucB]

Dat gebeurt ook,Pascal, zie code

 

[pf.de.vries]

Beste Luc,

Ik was net het vorige berichtje aan het typen toen jij jouw laatste plaatste...

Ik heb het ingesteld, en het werkt Perfect! :thumb:
Wederom hartelijk dank voor de snelle reactie.

Groeten,
Pascal