プリンターの切り替えをエクセルマクロで

オフィスソフト

エクセルを使った資料作成作業の中で、毎回１シート・２ページ分を１ページに「集約」して印刷する作業があります。

毎回そのシートを印刷するときは、「印刷」→プリンターの「プロパティ」でいちいち設定を変更していました。

そこで今回は、エクセルのマクロにて下記の省力化に挑戦しました。

注意：ご紹介する方法、設定内容などは、当社の環境によるものです。作業環境によって異なった画面等になっている可能セがあります。ご参考までにご覧ください。

目的

集約印刷をする場合にいちいち設定を切り替えることなく、１クリックで印刷したい。

方法

集約印刷用プリンターを用意する。
集約印刷用プリンターを選択、印刷するエクセルマクロを作成する。
マクロを「アドイン」として登録する。
「クイックアクセスツールバー」にマクロを割り当てたボタンを登録する。

集約印刷専用のプリンターの用意

集約印刷専用のプリンターを用意します。

もちろん、新たにプリンターを購入するわけではなく、現在使用しているプリンターのドライバをコピーし、「集約印刷専用」にします。

「スタート」→「デバイスとプリンター」をクリック

プリンターの追加をクリック

インストールするプリンターの種類の選択ここでは、ネットワークプリンターを選択しました。

利用できるプリンターが表示されますので、選択して、次へをクリック

ドライバーのモデルを検出しています。

どのバージョンのドライバーを使用しますか？「現在インストールされているドライバーを使う(推奨)(U)」をチェックして「次へ」をクリック

プリンター名を入力してください。

わかりやすいプリンター名を入力してください。
プリンター名は、後に作成するエクセルマクロで使用します。

正しく追加されました。

通常使うプリンターには、チェックを入れません。完了ボタンをクリックします。

追加されたプリンターを右クリックして、「プリンターのプロパティ」をクリック

タブ「全般」の「基本設定」をクリック

プリンターの印刷設定で、「集約」を適用
注・当然ながら、使用するプリンターによって設定可能な項目は違います。

集約印刷用プリンターを選択、印刷するエクセルマクロを作成

エクセルを起動し、新規ブックを作成

キー[Alt]+[F11]で、VBEを起動

「挿入」→「標準モジュール」をクリック

下記のコードを貼り付けます。


Sub 集約印刷()
'
' 集約印刷 Macro
'
' 変数 myPrinter を宣言
Dim myPrinter As String
' 現在のプリンターを記憶
myPrinter = Application.ActivePrinter
' 集約印刷で使用するプリンターでアクティブシートを印刷する。
' [ Preview:=True, ]でプレビューする。[ Preview:=False, ]でプレビューしない。
ActiveSheet.PrintOut Preview:=False, ActivePrinter:="RICOH IPSiO SP 6220 RPCS (集約)"
' プリンターを元に戻す
Application.ActivePrinter = myPrinter
End Sub