Printen meerdere of enkele pagina

[jammi]

Beste,

Ik heb een vraag omtrent het printen.
Ik heb een sheet dat bestaat uit 3 pagina's, nu wil alleen pagina 1 printen als de eerste blz allleen datq bevat.
Zodra de cel D33 niet meer leeg is moet pagina 1 en 2 worden uitgeprint.
Zodra de cel D57 niet meer leeg is moet pagina 1 tm 3 worden uitgeprint.

Dus afhankelijk of cel D33 en of D57 niet leeg zijn moeten er meerdere pagina's uigeprint worden.

Alvast bedankt.
Gr P.

 

[JEC.]

Bijvoorbeeld

Sub jv()
ThisWorkbook.Sheets(1).PrintOut 1, IIf([D57] <> "", 3, IIf([D33] <> "", 2, 1))
End Sub

 

[jammi]

Ik heb deze code geprobeerd maar zie dat er toch ergen iets mis gaat,
Het printen gaat niet op de juiste manier

Als ik D26 invul zou pagina 1 en 2 geprint moeten worden.
Indien ik D51 invul zou pagina 1 tm 3 geprint moeten worden.

Wat gaat er mis?

 

[JEC.]

Kijk eens goed naar je eerste vraag. Daar geef je andere cellen aan. Kijk daarna eens goed naar wat je aan moet passen in de code

 

[jammi]

Excuses,

Was inderdaad mijn fout.

Het werkt toch prima