ワークシート上で印刷設定をしたい。

質問

印刷の設定をワークシート上で行うようにしたいのですが、
やり方を教えてください。
下の場合、
[シート]Sheet1、Sheet2
[枚数]2
ですが、ワークシートに例えば
B2から下(つまりB3、B4・・・)にシート名、
A2から下(つまりA3・A4・・・)に「印刷」とあれば、B列のシート名のを
印刷対象にする。

C2から下(つまりC3、C4・・・)にそれぞれのシートの枚数を指定して
下記のようなコードにして印刷するようにしたいと思っています。
下の場合Array("Sheet1", "Sheet3")となっていますが、場合によってはシートは1枚かもしれません。こういった具合ですが、どのような
コードにすればよいでしょうか？よろしくお願いします。

Sub insatsu()
Sheets(Array("Sheet1", "Sheet3")).Select
Sheets("Sheet1").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True
End Sub

回答No.1

imogasi · ベストアンサー

例データ
Sheet1の
A2:C6
A列　　　B列　　　C列
印刷 Sheet2 1
Sheet3
Sheet4
印刷 Sheet5 2
Sheet6
（このように例を書けば判りやすい）
ーー
Sub test01()
Dim s As String
Set sh = Worksheets("sheet1")
d = sh.Range("a65536").End(xlUp).Row
For i = 2 To d
If sh.Cells(i, "A") = "印刷" Then
s = sh.Cells(i, "B")
Worksheets(s).Range("a1:g10").PrintOut copies:=sh.Cells(i, "C")
End If
Next i
End Sub
ーー
印刷範囲は適当に。
単純なんですが、これでどうですか。
多分肩透かしのコードかも。

お礼

お礼が遅くなり申し訳ございません。今日ようやく試させていただくことができました。すごいです、理想どおりでした。繰り返しを使えばいいのですね。助かりました、ありがとうございました。