Printen via waarde in cel van werkbladen

[enna]

Ik ben nieuw in VBA daarom heb ik een vraag.
Weet iemand een manier om tabbladen via een waarde in cellen
te activeren zodat alleen de geactiveerde tabbladen via een knop geprint kunnen worden ?

Voorbeeld:
Ik heb honderd tabbladen en die mogen pas geprint worden als er in een bepaalde cel een waarde staat. Dit wil ik printen door middel van een knop. Deze waarde in de cel wordt bepaald door een verwijzing.

Alvast bedankt.

 

[trucker10]

iets in deze aard ?

Sub tst()
If Range("A1") = 10 Then   
ActiveSheet.PageSetup.PrintArea = "$A$1:$O$68"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
End Sub

De range A1 pas je aan > zowel de waarde als de cel , ook de print area . Koppel dit aan een knop ( button )

 

[enna]

Bedankt voor je reactie.
Ik heb het geprobeerd
Ik kom op het volgende uit:
Als ik dit scripje plak achter m'n knop print het 8 legen bladen uit en 1 met het nummer 10 erop.

Daarom heb ik een voorbeeld gemaakt hoe ik het graag zou willen hebben.

Bij voorbaat dank.

 

[trucker10]

enna , probeer deze

Sub tst()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets

    With ws
        If .Range("A1") = "WAAR" Then
        
        .PageSetup.PrintArea = "A1:C7"
        
        .PrintOut Copies:=1, Preview:=False, collate:=True
       
        
   
    End If
    End With
    Next ws

End Sub

Edit : de code loopt fout bij de celverwijzing =Home!(cel)
Het zal voor de gevorderde vba'ers zijn

 

[enna]

Bedankt voor alle hulp.
Ik heb inmiddels een oplossing gevonden voor mijn probleem.
Ik ben nu in staat doormiddel van celinhoud het hele werkblad te selecteren
en af te drukken.
Zie bijgaand voorbeeld.