Excel VBAでワークシートを印刷する時に用紙の中央に印刷する方法を記録します。
ページ中央に設定するには「PageSetup」オブジェクトの「CenterHorizontally」プロパティ(水平)、「CenterVertically」プロパティ(垂直)を使います。
< スポンサーリンク >
「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
垂直方向を中央に設定して、印刷プレビューで表示してみます。
Sub test()
ActiveSheet.PageSetup.CenterVertically = True
ActiveSheet.PrintPreview
End Sub
水平、垂直を同時に設定する場合は、「With」ステートメントを使うと便利です。
Sub test()
With ActiveSheet.PageSetup
.CenterHorizontally = True
.CenterVertically = True
End With
ActiveSheet.PrintPreview
End Sub
こんな記事も書いています