VBA code gevraagd "printen dmv keuze"

[jan excel]

Beste Excellers,


Wie kan mij de code aanvullen die in toegevoegde word document staat.
De vraag staat ook omschreven in dit document.
Tevens de layout van frame3 toegevoegd in het document om een beter beeld te krijgen vam mijn vraag.

Alvast bedankt
Jan E

 

[Cobbe]

En waarom post jij een doc-dokument om een Excel-vraag op te kunnen lossen?

Is dat om het ons moeilijk te maken?

 

[jan excel]

Hoi Cobbe,

Je hebt gelijk, was niet zo slim om in een word documenten te zetten.
Hierbij een voorbeeld Excel bestandje, orgineel staan te veel vertrouwelijke gegevens.
In het hoofdmenu kan ik aanvikken wat geprint dient te worden, na een keuze te hebben gemaakt klik op button afdrukken.

In het hoofmenu heb ik selectie mogelijkheid Maandoverzicht toegevoegd, echter nu moet de code die aan de "afdrukken" button hangt aangepast worden zodat bij selectie maandoverzicht deze ook wordt geprint. Wie weet hoe dit te realiseren.


Zie bijlage Excel, dan is e.e.a. wel duidelijk denk ik.

Alvast bedankt.

 

[Cobbe]

Je moet enkel PrintPreview vervangen door PrintOut als het ok is.

 

[jan excel]

Hoi Cobbe,

Bedankt voor je reactie, echter het werk nog niet zoals ik zou willen.
Als in nu maandoverzicht aanvink en de button afdrukken activeer wordt werkblad grafiek uit geprint i.p.v. werkblad maandoverzicht.
Als ik weekoverzicht + grafiek aanvink en de button afdrukken activeer wordt werkblad weekoverzicht geprint maar werkblad grafiek niet, wat wel gelijktijdig moet zijn.

De code zal wel een klein foutje bevatten maar ik weet het niet.

Wil je hier nog even naar kijken, ben je zeer dankbaar !

Zelf dacht ik zo iets maar werkt niet.

Private Sub cmdframe3_Click()
Unload Me
Application.DisplayAlerts = False

Dim i As Integer
    
    For i = 1 To 7
       If Me("CheckBox" & i) Then
           Sheets("#test " & i).PrintOut
       End If
    Next
    If Me("CheckBox8") = True Then Sheets ("weekoverzicht") & Sheets("grafiek").PrintOut
    If Me("CheckBox9") = True Then Sheets("maandoverzicht").PrintOut
 End Sub

groetjes,
Jan E

 

[Warme bakkertje]

Private Sub cmdframe3_Click()
Unload Me
Application.DisplayAlerts = False

Dim i As Integer

For i = 1 To 7
If Me("CheckBox" & i) Then
Sheets("#test " & i).PrintOut
End If
Next
If Me("CheckBox8") = True Then Sheets ("weekoverzicht").PrintOut: Sheets("grafiek").PrintOut
If Me("CheckBox9") = True Then Sheets("maandoverzicht").PrintOut
End Sub

 

[jan excel]

Hoi Rudi en Cobbe,

Bedankt voor jullie inbreng, het werkt nu.

zal de status op opgelost zetten.

groetjes Jan E