Excelで印刷をマクロ化！ボタン1つでラクラク印刷！

・毎回同じ印刷設定を手作業でやるのが面倒・・・
・特定のシートだけをすぐに印刷できるようにしたい！

Excelマクロを使えば、そんな悩みを解消したり思いを実現することができます。この記事では、初心者でもできる印刷マクロの作り方から、ボタンひとつで印刷する方法まで丁寧に解説します。

そもそも「マクロ」とは？

マクロとは、Excelで行う操作（クリック・入力・印刷など）を自動で実行してくれる機能のことです。VBA（Visual Basic for Applications）というプログラミング言語を使って動いていますが、「マクロの記録」という記録機能を使えばコードについて知識がなくてもマクロを組むことができます。

マクロを使えばたとえば、

特定のシートを印刷
印刷範囲を設定して印刷
印刷前にプレビューを表示

などの作業を、ボタンひとつで一括実行できるようになります。

Excelマクロで印刷する基本のコード

印刷に関連するマクロについて、実際のVBAコードがどのようになるか、いくつか見ていきます。

まずは、「アクティブシートを印刷する」マクロについては下記のようになります。

Sub 印刷する()
  ActiveSheet.PrintOut
 End Sub

このコードは、今開いているシート（＝アクティブシート）をそのまま印刷するものです。
設定を変更したい場合は、以下のような引数をつけ加えることも可能です。

ActiveSheet.PrintOut Preview:=True, Copies:=1, Collate:=True

Preview:=True：印刷プレビューを表示
Copies:=1：印刷部数
Collate:=True：複数ページの印刷順を指定

特定のシートを自動印刷するマクロ

たとえば「請求書」という名前のシートを毎月印刷する場合、以下のようなマクロが便利です。

Sub 請求書印刷()
  Sheets("請求書").PrintOut
End Sub

シート名を直接指定することで、開いていなくても自動で印刷できます。

ボタン化するとさらに便利です！(ボタンを作る手順は後ほど説明しています）

印刷範囲を設定して印刷する

マクロでは、印刷範囲（印刷タイトルや改ページなど）も指定可能です。

Sub 範囲を設定して印刷()
   With Sheets("請求書").PageSetup
     .PrintArea = "A1:P13" ' 印刷範囲
     .Orientation = xlPortrait ' 縦方向
     .Zoom = False
     .FitToPagesWide = 1
     .FitToPagesTall = 1
  End With
  Sheets("請求書").PrintOut
End Sub

これにより、見やすく整ったレイアウトで印刷されるようになります。