Excel VBA 印刷時に用紙の中央に印刷する

Excel VBAでワークシートを印刷する時に用紙の中央に印刷する方法を記録します。

< スポンサーリンク >

 

ページ中央に設定するには「PageSetup」オブジェクトの「CenterHorizontally」プロパティ(水平)、「CenterVertically」プロパティ(垂直)を使います。

Excel印刷ページ中央

 

書き方

WorkSheetオブジェクト.PageSetup.CenterHorizontally = TRUE or FALSE

WorkSheetオブジェクト.PageSetup.CenterVertically = TRUE or FALSE

TRUE = 中央
FALSE = 上寄せ or 左寄せ

 

ページ中央設定

水平方向を中央に設定して、印刷プレビューで表示してみます。

Sub test()
    ActiveSheet.PageSetup.CenterHorizontally = True
    ActiveSheet.PrintPreview
End Sub

Excel印刷ページ中央

Excel印刷ページ中央

 

垂直方向を中央に設定して、印刷プレビューで表示してみます。

Sub test()
    ActiveSheet.PageSetup.CenterVertically = True
    ActiveSheet.PrintPreview
End Sub

Excel印刷ページ中央

Excel印刷ページ中央

 

水平、垂直を同時に設定する場合は、「With」ステートメントを使うと便利です。

Sub test()
    With ActiveSheet.PageSetup
        .CenterHorizontally = True
        .CenterVertically = True
    End With

    ActiveSheet.PrintPreview
End Sub

Excel印刷ページ中央

Excel印刷ページ中央

 

< スポンサーリンク >



サブコンテンツ

このページの先頭へ