Selectie printen met VBA

[Roma]

Beste specialisten,
Ik heb een werkblad met verschillende printopdrachten gemaakt in vba.
Nu is het probleem dat ik de printknop 2 x moet indrukken om het juiste blad af te drukken.
Ik weet niet wat ik fout heb gedaan.
Wie kan mij helpen?

Alvast bedankt Ron

 

[zapatr]

Je bedoelt waarschijnlijk dat na het klikken op de printknop in het blad het printerdialoogvenster verschijnt waarin je dan nog op Ok moet klikken. Als je dat laatste wil voorkomen, roep dan dat dialoogvenster niet op en laat de printopdracht meteen uitvoeren. Aldus:

Sub SelectiePrinten1()
  With ActiveSheet
  .PageSetup.PrintArea = "$B$6:$AM$40"
  .PrintOut
  End With
End sub

 

[Roma]

Helaas dat bedoel ik niet. Het dialoogvenster moet juist verschijnen omdat er verschillende printformats zijn.
Als ik eerst op printknop 1 druk dn krijg ik de juiste print.
Daarna bv. printknop 3 en kijk in het voorbeeld dan ze ik nog steeds de opdracht van print 1.
nogmaals venster sluiten en het opnieuw doen dan krijg ik wel de juiste print

 

[zapatr]

Oh, bedoel je dat.
Maar dat is logisch: je roept eerst het dialoogvernster op en stelt dan pas het printgebied in. Je moet die volgorde omdraaien (in alle 3 de macro's uiteraard), aldus:

Sub SelectiePrinten1()
ActiveSheet.PageSetup.PrintArea = "$B$6:$AM$40"
Application.Dialogs(xlDialogPrint).Show
End Sub

 

[Roma]

Beste Zapatr,
Bedankt voor je snelle reactie en het probleem is opgelost.
Super
Ron