エクセル マクロで印刷

質問

• エクセルのマクロを利用して、複数のシートを一括で印刷する方法を教えてください。
• エクセルBookの目次に複数のシート名を作成し、目次から選択して印刷できるようにする方法を教えてください。
• エクセルBookのSheet 1に他のBookのフルパスを入れ、目次から印刷することができるマクロの作成方法を教えてください。

回答No.1

imogasi

1つ目の要望ですが、ある程度VBAの経験があれば、WEB記事を調べて、関連記事を見つければ、コード作成は、簡単です。しかしその域に達するには、人によっても習得や到着に差がありります。
　質問者の場合は、本件はお勧めしません。普通のシートのデータの加工をVBAでやる分野（まずここから手を付ける）でなく、本件は、仕組をいじくるような分野だからです。「イベント」や「ユーザーフォーム」などの勉強を済ませておく必要がありますから。
ーー
私が思いついた、シートタブの上で右クリックして、この印刷メニューを選択して、印刷する例を考えてみました。
例示
標準モジュールに
Sub addRightClickMenu()
'右クリックメニューを追加する。
'2回実行すると２つ同じものがダブるので注意
With Application.CommandBars("ply").Controls.Add()
.Caption = "シート印刷" '説明文
.OnAction = "PrintThisSheet" 'マクロの名前
.BeginGroup = True 'グループにまとめる
End With
End Sub
Sub PrintThisSheet()
MsgBox "このシートを印刷します"
End Sub
Sub test02()
Application.CommandBars("ply").Controls("シート印刷").Delete
End Sub
をコピペして実行すると、シートタブで右クリックすると「シートの印刷」
のメニューが出るので、それを選択すると、「このシートを印刷します」の表示が出ます。
シートを増やした場合も、ちゃんと増えたシートのタブの右クリックでも出てきます。
本当に採用するなら、この次の行以下に印刷するための、ＶＢＡのコードを入れておきます。
手動で印刷するときに決める、印刷範囲や何部印刷するかとか、用紙を縦に使うか、などＶＢＡコードで指定しておきます。
＝＝＝＝
上記説明を質問者が読んで、怯まないなら、やったらよいでしょう。
WEB照会してでも、関連記事もまず出てくると考えてよいでしょう。
でもコピペして実行できた、というのではなく、仕組などをある程度分かったうえでやるべきです。
ーーー
第2の課題（ブックとシートの両方選択）も取り立てて、難しい仕組みを学ぶ必要はないですが、こちらは何通りもの仕組みが考えられるので、そういう面で回答は、難しい。
コントロールと言う部品の中に、選択に関するものが複数あります。
ファイルを選択させる仕組みは、特別のものもあります。

お礼

早々のご回答ありがとうございます。

＞上記説明を質問者が読んで、怯まないなら・・・
ご明察！の通り怯みました。。。。

シートタブの右クリックなら、シートの複数選択とあまり変わらない気もするのですが？？？？