ユーザーフォームから印刷範囲を指定して印刷

質問

よろしくお願いします。

EXCELのユーザーフォームで画像のように作りました。チェックを入れたページだけを
印刷したいと考えていますが、良い方法があればご教授願えませんでしょうか。

基本的にはすべてのページを印刷しますが、たまに印刷しないページもあるため、
最初からチェックが入った状態で、チェックを外して印刷ボタンを押すとそのページだけ
印刷されないような感じを考えております。
キャンセルボタンはユーザーフォームを閉じるときに使用する予定です。

回答No.1

watabe007

こんばんは、参考に
Private Sub CommandButton1_Click()
　　Dim i As Long
　　For i = 1 To 6
　　　　If Me.Controls("CheckBox" & i).Value = True Then
　　　　　　ActiveSheet.PrintOut From:=i, To:=i
　　　　End If
　　Next
End Sub