複数のエクセルファイルを同時に印刷するマクロを教えてください。

質問

複数のエクセルファイルを同時に印刷するマクロを教えてください。
福祉施設のデイサービスで働いています。毎月利用者さん約２０名に利用日希望調査票を配っています。エクセルで作成し、一人、一つのエクセルファイルで、１月から１２月までのタブが並んでいます。
現在は、Aさんのファイルを開き６月のタブを押し印刷、続いてBさんも同様の作業をしています。計２０回繰り返しています。
一度に、２０名のファイルの６月を印刷するマクロなどありえるのでしょうか？また現在の作業を効率良くできる方法があれば教えてください。よろしくお願いいたします。

回答No.2

masa_january · ベストアンサー

マクロではないですが、以下のフリーソフトで可能かと・・・

ExcelAutoPrint

参考&DL&解説
↓
http://onegland.hp.infoseek.co.jp/xlsaprn/index.htm

DL後、解説をご覧下さい。

操作手順

(1)ExcelAutoPrintを起動し

(2)Aさん～対象者の20シートをドラッグ

(3)▼で「シート名指定印刷」を選択
シート名欄に
例：「６月のシート名」を入力(一致にチェック入れ)　設定クリック

(3)印刷

これで20名の6月シートのみが連続印刷されるはずです。

翌月は同様に「7月のシート名」を指定すればいいです。

参考URL：

http://onegland.hp.infoseek.co.jp/xlsaprn/index.htm

回答No.3

masa_january

訂正

誤
(2)Aさん～対象者の20シートをドラッグ

正
(2)Aさん～対象者の20Book(ファイル)をドラッグ

回答No.1

米沢 栄蔵（@YON56）

複数のエクセルファイルを同時に印刷するマクロではなく、
複数のエクセルファイルを連続に印刷するマクロをかきます。

Dim AA
Dim AAA,BBB,CCC,DDD

AA="印刷対象月のシート名"
Set AAA=CreateObject("Spripting.FileSystemObject")
Set BBB=AAA.GetFolder("X:\YYY\ZZZ\")
'XX:\YYY\ZZZは、印刷対象ファイルの保存フォルダ名
Set CCC=BBB.Files
For Each DDD In CCC
Workbooks.Open Filename:=DDD.Path
Workbooks(DDD.Name).Activate
Sheets(AA).PritOut
Next

このマクロでは、通常印刷用のプリンターを使用し、保存フォルダ内の全ファイルが印刷されます。
また、保存フォルダ内のファイルがゼロの場合、印刷対象月のシート名が完全に一致しない場合、
エラーが発生します。
シート名の全角字半角字及び前後・文字列中の空白文字には要注意です。
印刷対象シートが印刷時、最左に存在するとすれば、
AAを定義せず、Sheets(1)と書き込めばOK

なお、このマクロは、印刷対象ファイルと別のファイル(仮称　コントローラー)に記述します。
また、このファイルの特定シートの特定セルに印刷対象ファイルの保存フォルダ名を記述しておくと、それを取得することも可能です。