質問: excelで複数のファイルを1度に印刷したいです。 フォルダにexcelのファイルが77個あって、それぞれ1~10sheet、1sheet=a4で1枚になっていて印刷すると全部で216枚あります。いつも1ファイルずつ開いて「全てのシートを選択」して印刷しているのですが1時間程かかってしまいます。(カラーレーザープリンター使用、番号順になっていないので並べ替える時間も込み)時間短縮出来る方法はないでしょうか? 以前フォルダ内のファイルを「全て選択」→「印刷」してみたのですが、印刷されなかったファイルやシートもあり、余計に面倒なことになってしまいました。
回答: #1の回答者です。 よく確認しないで回答してしまい、申し訳ありません。 紹介したurlの方法だと、選択されているシートしか 印刷されないようです。 あらかじめ全てのシートを選択状態にして 保存しておけば、全シートが印刷できます。 別案ですが、メモ帳を起動して以下のコードを コピペして、印刷したい77個のファイルと同じフォルダに保存します。 保存時のファイル名は何でもいいですが、 拡張子は必ず「.vbs」にします。 '-----メモ帳に貼り付けるコード----- dim fname dim xlapp dim xlwb set xlapp = wscript.createobject("excel.application") for each fname in wscript.arguments set xlwb = xlapp.workbooks.open(fname) xlwb.worksheets.printpreview xlwb.close false next xlapp.quit set xlapp = nothing set xlwb = nothing '-----ここまで----- 印刷したいエクセルファイルを選択して、 保存した「***.vbs」の上にドラッグ&ドロップします。 これで、選択したエクセルファイルの 全てのシートが印刷できると思います。