Printen via selectievakje met een macro

[donndz]

Goedenavond,

Ik heb 4 selectievakjes, elk staat voor een tabblad.

Afhankelijk van welke selectievakjes aangevinkt staan moeten de correleerde tabbladen geprint worden.

Ik wil dit doen via knop in het werkblad (dus via een macro).

Dus als vakje 1, 3 en 4 aangevinkt staan wil ik alleen deze bladen printen door op een knop te drukken in het werkblad.

Ik heb een bestand bijgevoegd maar kwam er niet uit.... wie kan mij helpen?Bekijk bijlage test_01.xlsm

 

[sylvester-ponte]

in jouw macro1 staag "WAAR" verander dat in True
True moet niet tussen ""

groet sylvester

 

[pasan]

probeer deze is

Sub Macro1()
With Worksheets("hoofd")
If Range("D2").Text = "WAAR" Then
    Worksheets("tabblad 1").Range("$B$2:$H$15").PrintPreview
     
If Range("D4").Text = "WAAR" Then
    Worksheets("tabblad 2").Range("$B$2:$H$15").PrintPreview
     
If Range("D6").Text = "WAAR" Then
    Worksheets("tabblad 3").Range("$B$2:$H$15").PrintPreview
     
If Range("D8").Text = "WAAR" Then
    Worksheets("tabblad 4").Range("$B$2:$H$15").PrintPreview
    
End If
End If
End If
End If
End With
End Sub

 

[popipipo]

@pasan

If Range("D2").Text = "WAAR" Then

Als je dit zo laat staan zal het niet werken in de engelse versie van excel, omdat in kolom D dan 'True' en 'False' staat en niet 'WAAR' en 'ONWAAR'

 

[donndz]

Heren bedankt!

Het heeft geholpen, uiteindelijk heb ik er dit van gemaakt:

Sub Printen()
Sheets("tabblad 1").Select
If Range("C13") = True Then
 Call Macro_1
 End If
Sheets("tabblad 2").Select
If Range("C14") = True Then
 Call Macro_2
 End If
Sheets("tabblad 3").Select
If Range("C15") = True Then
 Call Macro_3
 End If
 Sheets("tabblad 4").Select
  If Range("C16") = True Then
 Call Macro_4
End If
End Sub

 

[Warme bakkertje]

Hier heb je toch geen 5 verschillende macro's voor nodig

Sub tst()
For i = 1 To 4
    If Sheets("hoofd").CheckBoxes("Check Box " & i).Value = 1 Then
        With Sheets("tabblad " & i)
            .PageSetup.PrintArea = "$B$2:$H$15"
            .PrintPreview
        End With
    End If
Next
End Sub