Excel VBA 複数シートの一括印刷について

標記の件、御指導願います。

シート1：印刷設定（チェックボックスが印刷したいシート分あります）
シート2～34：チェックボックスがオンである表題のシートを選択し一括で印刷する。

を、VBAで作ってみましたが、エラー（インデックスが有効範囲にありません）が出てしまいます。

Sub CheckBoxPrint()

Dim ArrySheet() As String
Dim I As Long
Dim k As Long

k = 0

For I = 1 To 33

If ActiveSheet.OLEObjects("CheckBox" & I).Object.Value = True Then
ReDim Preserve ArrySheet(k)
ArrySheet(k) = ActiveSheet.DrawingObjects("CheckBox" & I).Object.Caption
k = k + 1
End If
Next I

ThisWorkbook.Worksheets(ArrySheet).PrintOut　←エラー（インデックスが有効範囲にありません）

Erase ArrySheet


End Sub
　　　
このエラーを回避する方法を御指導してください。
よろしくお願い致します。

No.2 ベストアンサー 回答者： imogasi 回答日時： 2011/04/28 09:13

エラーが出たからとすぐＷＥＢなんぞに質問してませんか。

まず下記のように(確認用・・・の個所）でもして、自分がプログラムで設定した内容を確かめるクセを付けること。
Sub CheckBoxPrint()
Dim ArrySheet() As String
Dim I As Long
Dim k As Long
k = 0
For I = 1 To Sheets.Count - 1

If ActiveSheet.OLEObjects("CheckBox" & I).Object.Value = True Then
ReDim Preserve ArrySheet(k)
ArrySheet(k) = ActiveSheet.DrawingObjects("CheckBox" & I).Object.Caption
k = k + 1
End If
Next I
For Each cc In ArrySheet　'＜－－－－確認用に入れてみる。こういうことをすることがデバッグで大切
MsgBox cc
Next
ThisWorkbook.Worksheets(ArrySheet).PrintOut '←エラー(インデックスが有効範囲にありません)
Erase ArrySheet
End Sub
上記のＭｓｇｂｏｘ　ｎｏ表示が質問者の思っている表示（シート名のはずだが）と正しいですか。
私は不自然だがチェックボックスのＣａｐｔｉｏｎをＳｈｅｅｔＸＸにそれぞれ変えて実行して、印刷は行われた。
ーー
わたしのテスト
Ｓｈｅｅｔ１－Ｓｈｅｅｔ４のシートとあり。
Sheet1に３つチェックボックスを貼り付け。２つだけＯＮ
ＣｈｅｃｈＢｏｘ１のＣａｐｔｉｏｎ－－＞Ｓｈｅｅｔ2
ＣｈｅｃｈＢｏｘ２のＣａｐｔｉｏｎ－－＞Ｓｈｅｅｔ3
ＣｈｅｃｈＢｏｘ３のＣａｐｔｉｏｎ－－＞Ｓｈｅｅｔ4
このステップが行われていないか、Ｓｈｅｅｔ名と食い違うのでは。

この回答へのお礼

imogasi様

ご回答ありがとうございました。
ご指摘の通り、シート名に誤記がありました。
確認不足でした。。
今後はデバックしていくスキルも勉強します。

お礼日時：2011/04/28 11:50

No.1 回答者： keithin 回答日時： 2011/04/28 00:25

とりあえず見た感じの範囲には間違いはありませんので，各チェックボックスのCaptionに誤記が無いか，正しくシート名を記入できているか，念入りに再確認してください。

この回答へのお礼

keithin様

ご回答ありがとうございました。
ご指摘の通り、シート名に誤記がありました。
確認不足でした。。

お礼日時：2011/04/28 11:48