Print macro : Pagina's in 1 PDF printen wanneer een cell groter is dan '0'

[Ameliasiemens45]

Goeiemorgen forummers !

Ik heb een vraagje betreffende een printmacro.

Ik heb een document met verscheidene pagina's. Zijnde : 'Uitleg' '0' '1' '2' '3' '4' '5' '6' '7' '8' '9'
Mijn bedoeling is dat pagina 'uitleg' nooit geprint wordt, maar pagina 0 tot 9 wel, indien cell E12 groter is dan nul.

Graag ook alles printen in 1 PDF...

Kunnen jullie mij hier mee helpen ?

Voorlopig had ik al deze :

Dim ws As Worksheet

 For Each ws In Worksheets
        With ws
            Select Case ws.Name
                Case 0 To 9
                    If .Range("E12").Value > 0 Then
                        .PrintOut Preview:=True
                    End If
                Case Else
                ' do nothing
            End Select
        End With
    Next ws

Maar dit lukt niet.

edankt !!