ページ中央に印刷する(CenterHorizontally/CenterVerticallyプロパティ)|Excel VBA |
PageSetupオブジェクトのCenterHorizontallyプロパティにTrueを設定すると、余白を除いた範囲内で水平方向の中央寄せに設定します。
CenterVerticallyプロパティは垂直方向の中央寄せに設定します。
構文 Object.CenterHorizontally 水平方向でページ中央 設定/取得 Object.CenterVertically 垂直方向でページ中央 設定/取得
設定項目 | 内容 |
---|---|
Object | PageSetupオブジェクト [省略不可] |
次のサンプルは、アクティブシートのページ設定を、水平/垂直方向ともに中央寄せにしてページ中央に印刷するように設定し、印刷プレビューを表示します。
Sub Sample()
With ActiveSheet.PageSetup
.CenterHorizontally = True '---水平方向で中央寄せ
.CenterVertically = True '---垂直方向で中央寄せ
End With
ActiveSheet.PrintPreview '---印刷プレビューを表示
End Sub