VBA

【ExcelVBA】複数のExcelファイルの全シートを一括印刷するマクロ

shutterstock_756361510
ねぇもりさん、毎週の定例会議で資料をたくさん印刷してるんだ。
エクセルが10ファイル・それぞれ5シート。全部まとめて印刷できる方法ないかなぁ?
もり
もり
それなら、一括印刷できるマクロを作っちゃおう

複数のエクセルファイルの全シートを一括で印刷できるマクロを紹介します。

1つのExcelファイルの中に5シートあり、計10ファイルの場合、5シート×10ファイル=50シートが一括で印刷できちゃいます!

allprint8

指定ファイルの全シートを一括印刷するマクロ

印刷対象のファイルとは別の「新しいExcelブック」を作成し、その標準モジュールに貼り付けて使用してください。

※用紙サイズ、縦横xページなどのレイアウト設定の処理はいれてません。

マクロの使い方

マクロを実行すると「ファイルを開く」ダイアログが出現するので、印刷したいファイルを選択します。

  1. ShiftキーまたはCtrlキーを使用して、印刷したいファイルをすべて選択
  2. 「開く」を押す
allprint6

確認メッセージが登場するので、問題なければ「OK」を押します。

処理のポイント

ポイントは、配列インデックスの「最小値」と「最大値」を取得するLBoundとUBoundをFor文の条件にしていることです。

 

配列FileName(1~n)には、選択したファイルのフルパスが格納されています。

allprint7

 

WorkBooks.Openメソッドでファイルを一つずつ開き、PrintOutメソッドで印刷します。

Workbookオブジェクト.Sheets.PrintOutメソッド
→ワークブック内のすべてのシートを印刷します。

(おまけ)各ファイル1シートのみを印刷したい場合

1ファイルにつき1シートのみの場合は、VBAを使わずにサクッと印刷できちゃう方法があります。

エクスプローラー上で、印刷対象のファイルをまとめて選択し、マウスを右クリック→印刷でOKです。

allprint9

 

資料をたくさん印刷するルーチン作業をかかえている方は、一括印刷のツールを作っておくと使い回しができるのでラクちんですね!

【個人&法人向け】IT専門ブログ記事添削サービス

会社や個人で記事作成をしていて、このようなお悩みはありませんか?

個人でブログを書き始めた。自己流でなんとなく書いているので、読み手に伝わる文章になるよう、アドバイスがほしい。
情報発信のため、会社でコーポレートブログを立ち上げた。技術ノウハウを持つエンジニアはいるが、文章を書くことには慣れていないため、読み手に伝わるかチェックしてほしい。

伝え方には「コツ」があります。あなたの記事が読み手に伝わるよう、パソコン本の著者が丁寧に添削いたします。
その場限りの添削だけではなく、今後記事を書くうえでのポイントもレクチャします。