Print one or multiple sheets based on checkbox values and then clear checkboxes

Right now I have a UserForm with multiple pages on. The different multipages are used to input different kinds of data onto different sheets in the workbook.
When completed all data will be consolidated onto two sheets for printing.

On first page of multipage I have a frame with printing options.
Checkbox “cbSammanfattandeB”
Checkbox “cbAlkoholP”

1. I want the user to be able to chose what sheets to print, one or both.

2. After printpreview I also want the checkboxes to be cleared (not checked). I have tried to use the “.Valus = False” but it wont clear the box…

3. Can I set the button cmdPrintEvent to actually print the selected sheets without them being previewed? If so, can anybody hint about the code for that?

Private Sub cmdPrintEvent_Click()
If cbSammanfattandeB = True And cbAlkoholP = True Then
    Me.Hide
    Sheets(Array("Mastersheet", "2BPrinted")).PrintPreview
    Me.Show
ElseIf cbSammanfattandeB = True Then
    Me.Hide
    Sheets("2BPrinted").PrintPreview
    Me.Show
ElseIf cbAlkoholP = True Then
Me.Hide
    Sheets("Mastersheet").PrintPreview
    Me.Show
    cbAlkoholP.Value = False
End If
 
End Sub

Re: Print one or multiple sheets based on checkbox values and then clear checkboxes

Dave
This wont un-check my checkboxes when returning from the printpreview-screen. I have tride to put this code inside the sub and also outside in a Initialize Private Sub without results.

Re: Print one or multiple sheets based on checkbox values and then clear checkboxes

Ok, thank you for your help. I'll try to figure this out Probably a way around it some how.