エクセルの印刷をA4サイズからA3サイズなど印刷倍率を指定するVBA

印刷倍率VBA

エクセルで印刷する時にページによって印刷する範囲が異なるので、可能な限り用紙いっぱいに印刷したいと思いませんか?

PageSetup.Zoomを使うことにより、常時設定した印刷倍率を指定できるので作業効率化できますよ。

ページの印刷倍率を設定する

印刷倍率の設定は、エクセルのワークシートから「ファイル」➡「印刷」➡「ページ設定」の順に進むと倍率設定できますが、VBAを使ってエクセルを管理しているのでついでに設定しておいて損は無いですよ。

初期設定は100%になっているので、ユーザーフォームに配置したコマンドボタンに印刷倍率140%の設定を書くことで、A4サイズで作成したPOPなどをA3サイズで印刷しています。

印刷倍率140%に設定

Private Sub CommandButton1_Click()
ActiveSheet.PageSetup.Zoom = 140
End Sub

解説
  1. コマンドボタン1がクリックされたら
  2. 表示中のシートの印刷倍率は140%にする
  3. マクロ記録終了