ActiveX besturingselement Selectievak om te printen

[ernstkronenburg]

Hallo,

Ik heb een Excel werkmap met diversen gevulde bladen.

Op de eerste pagina wil ik een keuze maken via een Selectievak om zo het blad bijhorende bij het geselecteerde Selectievak te kunnen printen.
Met andere woorden, hoe meer Selectievakken ik aanzet, hoe meer bijhorende bladen ik print.

Kan iemand mij hierin adviseren?

groet,
Ernst

 

[ClickandKnow]

Heb je een voorbeeldbestand? Alles is natuurlijk mogelijk met VBA.
Hebben de bladen die afgedrukt moeten worden een vaste naam?
Ik neem aan dat hetgeen wat afgedrukt moet worden steeds op een ander tabblad staat?

 

[ernstkronenburg]

Hi ClickandKnow,

Zie bijlage voor voorbeeld bestand, Bekijk bijlage voorbeeld.xlsx
Alle bladen die afgedrukt moeten worden hebben een vaste naam.
Het is inderdaad juist dat alles wat geselecteerd is en afgedrukt moet worden op aparte bladen staat.

 

[Roncancio]

Dim oCB As OLEObject
    For Each oCB In ActiveSheet.OLEObjects
        If TypeName(oCB.Object) = "CheckBox" And oCB.Object = True Then
            Worksheets(oCB.Object.Caption).PrintOut
        End If
    Next

Bovenstaande code print van alle checkboxen die aangevinkt zijn de gelijknamige werkbladen.

Met vriendelijke groet,


Roncancio

 

[ernstkronenburg]

Hoi Roncancio,

Waar moet ik deze code toevoegen?

 

[ClickandKnow]

Of de lange code plakken in Blad2

Sub Afdrukken()

Application.ScreenUpdating = False

If Startwerkbespreking.Value = True Then
    Sheets("F3390").Select
    Sheets("F3390").PrintOut
    Sheets("Projectgegevens").Select
End If

If CheckBox1.Value = True Then
    Sheets("F3391").Select
    Sheets("F3391").PrintOut
    Sheets("Projectgegevens").Select
End If

If CheckBox2.Value = True Then
    Sheets("F3392").Select
    Sheets("F3392").PrintOut
    Sheets("Projectgegevens").Select
End If

If CheckBox3.Value = True Then
    Sheets("Vinklijst Montagemap").Select
    Sheets("Vinklijst Montagemap").PrintOut
    Sheets("Projectgegevens").Select
End If

If CheckBox4.Value = True Then
    Sheets("Vinklijst Projectmap").Select
    Sheets("Vinklijst Projectmap").PrintOut
    Sheets("Projectgegevens").Select
End If
Application.ScreenUpdating = True


End Sub

 

[ClickandKnow]

Alt + F11 en code plakken in "Blad2" aan de linker kant (dus dubbel klik en dan Ctrl + V de Code)

 

[Roncancio]

Voeg een knop toe aan het 1e werkblad en plaats de code achter die knop.

Met vriendelijke groet,


Roncancio

 

[ClickandKnow]

Bestandje

Bestand was te groot om in helpmij te blazen vandaar een linkje...

 

[ernstkronenburg]

Thank you so much!
Het werkt! :thumb:

 

[Roncancio]

Je kunt de vraag nog op opgelost zetten.

Met vriendelijke groet,


Roncancio