Excel VBA 印刷時に用紙の中央に印刷する-CenterHorizontally、CenterVertically

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

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

Excel印刷ページ中央

< スポンサーリンク >





「CenterHorizontally」「CenterVertically」プロパティの書き方

水平

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

TRUE = 中央
FALSE = 左寄せ

垂直

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

TRUE = 中央
FALSE = 上寄せ

 

VBAでページ中央に印刷する設定

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

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印刷ページ中央

 

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