【VBA】印刷範囲を指定ページ数に収めて印刷する

こんにちは、Ryoです。
印刷範囲に対して多少超えてしまっているような場合は強制的に1ページ内に収めて印刷することも多いと思います。VBAでもFitToPagesTall／FitToPagesWideプロパティを利用することで指定ページに収めることができますので、今回はその内容について書いていきます。

1.サンプル概要
2.サンプルコード
3.まとめ

1.サンプル概要

Sheet１にデフォルト（A4）の印刷範囲を超えた表をサンプルとして作成しています。超えている部分はF列と43～46行の部分になります。

この状態で印刷プレビューを実行すると、当然ながら範囲を超えているので印刷枚数としては4枚となります。

≪1枚目≫

≪2枚目≫

≪3枚目≫

≪4枚目≫

この状態に対し、縦横1ページに収まるようサンプルコードを実行して印刷プレビューを行うと、この通り1ページに収まります。

以上がサンプル概要になります。

2.サンプルコード

Sub Sample1()

  'Sheet1に対する処理
  With Worksheets("Sheet1")
    'Zoom表示を無効
    .PageSetup.Zoom = False
    '縦方向を1ページに収める
    .PageSetup.FitToPagesTall = 1
    '横方向を1ページに収める
    .PageSetup.FitToPagesWide = 1
    '印刷プレビューの実行
    .PrintPreview
  End With
    
    '※ サンプル動作なのでプレビューとしていますが、
    '   印刷実行であれば .PrintOut でOKです。

End Sub

このように印刷範囲を指定ページ数に収めるにはFitToPagesTall／FitToPagesWideプロパティを利用します。

構文：オブジェクト.FitToPagesTall/FitToPagesWide = expression

FitToPagesTallプロパティ＝縦方向、FitToPagesWideプロパティ＝横方向を利用して印刷範囲を指定したページ数に収めることができます。

サンプルコード中でPageSetup.Zoom = False としているのは「Zoomプロパティが設定されているとFitToPagesTall/Wideプロパティが無効」となるので、最初にZoomを無効にしています。

実行すると「Sheet1」を縦横1ページに収まるよう設定し印刷プレビューを実行します。