Print preview multiple sheet into one Print Job (VBA)

[jaeremata]

have a check box that has 4 sheets. It's working if I select 1 sheet and it's doing it's job.

But I'm having issue when 2 checkbox is selected. It open separate print job. What I want to happen is when when 2 sheets(or more) are selected on the checkbox, it will do a print preview but on one print job.

I don't know what I'm missing, please kindly point me or guide me to correct what needs to be done.

Here's my sample code:

Private Sub CommandButton1_Click()
If Me.cbSH1 = True Then
ThisWorkbook.Sheets("NC Performance").PrintPreview
End If

If Me.cbSH2 = True Then
ThisWorkbook.Sheets("8D Performance").PrintPreview
End If

If Me.cbSH3 = True Then
ThisWorkbook.Sheets("Attack Plan").PrintPreview
End If

If Me.cbSH4 = True Then
ThisWorkbook.Sheets("Plant Overview").PrintPreview
End If

If Me.cbSH1 And Me.cbSH2 = True Then
Sheets(Array("NC Performance", "8D Performance")).PrintPreview
End If
End Sub

 

[jaeremata]

I've tried to used it and now, It returns another error.

 

[footoo]

What about the macro in post #4 ?

 

[jaeremata]

I also tried that. Some thing. Same error.

 

[jasonb75]

Can you grab a screen capture of the error from the second one showing the error message and the line that it highlights please.
I can't see that the code should return the exact same error unless you have changed the names of the checkboxes.

 

[footoo]

Private Sub CommandButton1_Click()
Dim x&, c&, SheetArray() As String
Dim AllSheets(): AllSheets = Array("NC Performance", _
    "8D Performance", "Attack Plan", "Plant Overview")
For x = 1 To 4
   If Me.Controls("cbSH" & x) = True Then
        ReDim Preserve SheetArray(c)
        SheetArray(c) = AllSheets(x - 1)
        c = c + 1
    End If
Next
On Error resume Next
Sheets(SheetArray).PrintPreview
End Sub

 

[jaeremata]

Yey. Thank you, it's working now.. ??