Excel VBA 印刷時に縦や横をページ数に合わせるよう指定する-FitToPagesWide、FitToPagesTall

Excel VBAでワークシート印刷時に縦や横をページ数に合わせて印刷するように設定をする方法を記録します。

ページ数に合わせて印刷するように設定するには「PageSetup」オブジェクトで、横は「FitToPagesWide」プロパティ、縦は「FitToPagesTall」プロパティを使います。

< スポンサーリンク >

「FitToPagesWide」「FitToPagesTall」プロパティ書き方

横

False＝自動

縦

False＝自動

VBAでページ数に合わせる

縦も横も自動になっている場合です。

ページの横を２ページに収まるように設定し、印刷プレビューで表示してみます。

※ZoomはFalseにします。

Sub test()
    With ActiveSheet.PageSetup
        .Zoom = False
        .FitToPagesWide = 2
        .FitToPagesTall = False
    End With

    ActiveSheet.PrintPreview
End Sub

ページの縦を２ページに収まるように設定し、印刷プレビューで表示してみます。

※ZoomはFalseにします。

Sub test()
    With ActiveSheet.PageSetup
        .Zoom = False
        .FitToPagesWide = False
        .FitToPagesTall = 2
    End With

    ActiveSheet.PrintPreview
End Sub

< スポンサーリンク >※広告先のお問い合わせは広告主様にお願いします