複数ブックの任意シート一括印刷

開かれている任意の複数ブックの、アクティブになっている任意シートを一括に印刷

複数のブックにわたる一括印刷機能は標準機能にないので、マクロを使った対応になる。

【手順】

開いているブックに依存しないマクロを登録するため、最初に「個人用マクロブック」を用意しておく。
[ウィンドウ(W)]＞[再表示(U)]でPERSONAL.XLSが選択できない場合は「個人用マクロブック」が作成されていないので、下記の手順で作成する。

1. [ツール(T)]＞[マクロ(M)]＞[新しいマクロの記録(R)]
2. 現れたダイアログで、[マクロの保存先(I)]を「個人用マクロブック」として「OK」
3. そのままなにもせず、[ツール(T)]＞[マクロ(M)]＞[記録終了(R)]

以上で「個人用マクロブック(Personal.xls)」が生成される。
続いて、VBE(Visual Basic Editor)でマクロを登録する。

1. [ツール(T)]＞[マクロ(M)]＞[Visual Basic Editor(V)]（またはAlt+F11）でVBEを起動。
2. プロジェクトエクスプローラ（ファイルエクスプローラに似た画面）で「VBA Project(Personal.xls)」を探し、[標準モジュール]＞[Module1]をダブルクリック。
3. 右側のウィンドウ（コードウィンドウ）へ下記をコピー貼り付け。
   Sub 全窓印刷()
   Dim w As Window
   For Each w In Windows
   w.ActiveSheet.PrintOut
   Next
   End Sub
4. VBEのメニュー[ファイル(F)]＞[終了してExcelに戻る(C)]
5. 一旦Excelを終了。「Personal.xls」を保存しますかと聞いてくるので、保存します。
6. Excelを起動、印刷する目的のブックのシートをそれぞれアクティブにする。
7. [ツール(T)]＞[マクロ(M)]＞[マクロ(M)]で、「Personal.xls」に登録した「全窓印刷」を実行。

前（見出しを各ページに自動的に印刷） 目次 次（先頭ページ番号を任意に変更）