Meerdere Pagina's Printen

[jammi]

Beste

Ik heb de formule in gebruik, deze wil ik uitbreiden naar 4 pagina's.
Als cell D81 niet leeg is moet pagina 1 tm 4 uitgeprint worden


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

Alvast bedankt

 

[edmoor]

Zoiets:

Sub Prints()
    Dim Tot As Integer
    
    If Range("D33") <> "" Then Tot = 2
    If Range("D57") <> "" Then Tot = 3
    If Range("D81") <> "" Then Tot = 4
    ThisWorkbook.Sheets(1).PrintOut 1, Tot, 1
End Sub

 

[VenA]

Misschien zo ook wel

Sheets(1).PrintOut 1, Application.CountA(Range("D33,D57,D81")) + 1, 1

 

[jammi]

Bedankt alweer.

Beide werken prima. super.