And this will allow you to print
 For Each cb In PrintDlg.CheckBoxes
                If cb.Value = xlOn Then
                    Worksheets(cb.Caption).Visible = True
                    Worksheets(cb.Caption).Activate
                    ActiveSheet.PrintOut
                    Worksheets(cb.Caption).Visible = False
                     '                   ActiveSheet.PrintPreview 'for debugging
                     
                     
                End If
            Next cb