Voorwaardelijk Printen

[goedlichtJoost]

Beste allemaal,

Ik heb een aantal vragen betreffend voorwaardelijk printen. (Excel 2007)

Ik heb een lijst met projecten waarin ik verschillende waardes kan zetten. en 2 vaste keuzes.
De vaste keuzes zijn:
land van project (Nederland, Frankrijk, Duitsland, Overig)
Status (Onderhanden, Gereed)
Dit is allemaal gelukt met validatie.

Maar nu zou ik graag geselecteerd willen printen.
Ik maak 5 knoppen, met hierop: (Alles printen, Nederlands printen, Frans printen, Duits printen, Overig Printen)

Nu zou ik willen hebben dat wanneer ik dan ga printen, dan hij dan enkel de bijbehorende projecten print.
En dan 1 zijde van het A4 alle onderhanden projecten bevat. en op de achterkant alle Gereed projecten bevat. (hij zal dus de lijsten automatisch moeten schalen)

Is dit mogelijk? zo ja, hoe zou ik dit kunnen doen?
Alle hulp is welkom

Bijgevoegd een voorbeeld bestand
Bekijk bijlage planning wk 2014 - 20.1.xlsx

Met vriendelijke groet,

Joost

 

[VenA]

Ik heb werkelijk geen idee waar je naar toe wil. Wat waar staat in jouw voorbeeldje en wat de onderlinge relatie is ontgaat mij totaal. Als je een antwoord wil krijgen zal je toch eens even naar jouw vraag een voorbeeldje moeten kijken.

 

[HSV]

Als je de vraag 'leest' is het niet zo moeilijk.
Maar helaas kan ik niet dubbelzijdig printen (niet testen ook).

Maak een macro die filtert op kolom L eventueel ook op kolom M, als je die bepaalde knop drukt.

 

[goedlichtJoost]

Beste VenA,
Hartelijk dank voor uw antwoord.
Excuses ik dacht dat ik het probleem duidelijk had omschreven.

Laat ik het dan zo omschrijven:

Mijn vraag is:
Hoe kan ik vanuit een filter mijn selectiebereik bepalen om te printen.
en de volgende vraag is dan;
Hoe kan ik aangeven dat een volgende selectie op een aparte pagina moet komen

Beste HSV;
Ik heb inderdaad een tweetal filters gemaakt met knoppen.
Dit werkt prima,
Maar hoe kan ik er nu voor zorgen dat ik enkel de filter uitprint?

In afwachting van uw reactie,

mvg
Joost

 

[HSV]

Maak een commandbutton aan met als caption "frans".

Private Sub CommandButton1_Click()
 With Range("A6:M" & Cells(Rows.Count, 13).End(xlUp).Row)
     .AutoFilter 12, CommandButton1.Caption
     .AutoFilter 13, "Gereed"
   With Sheets(1).PageSetup
     .Zoom = False
     .FitToPagesTall = 1
     .FitToPagesWide = 1
   End With
     AutoFilter.Range.Offset(-3).PrintPreview
     .AutoFilter
   End With
End Sub