VBA 印刷を一枚に納める




オブジェクト内容など
エクセルで印刷がずれないように一枚に納める方法です。

PageSetupオブジェクトを使用します。
PageSetupはページのレイアウトもろもろが出来そうです。

一枚に納める時に使用するのはFitToPagesWideと FitToPagesTallです。

サンプル
    With Worksheets("Sheet1").PageSetup
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With


FitToPagesWide = 1
で横一枚に納めて
FitToPagesTall = 1 で縦を一枚に納めています。


エクセル２０１０だと「ページレイアウト」の「拡大縮小印刷」欄と同様の動きになります。

拡大・縮小を１００％にする場合は
Zoomの値を変更します。
With Worksheets("Sheet1").PageSetup
  .Zoom = False
  .FitToPagesWide = 1
  .FitToPagesTall = 1
End With


関連ページ
印刷範囲の設定
ラベル: