ページ中央に印刷する｜Excel VBA

CenterHorizontallyプロパティにTrueを設定した場合、余白を除いた範囲内で、水平方向の中央寄せで印刷します。
CenterVerticallyプロパティは垂直方向の中央寄せを指定します。

構文  Object.CenterHorizontally     水平方向でページ中央 設定/取得
      Object.CenterVertically       垂直方向でページ中央 設定/取得

次のサンプルは、アクティブシートのページ設定を、水平/垂直方向ともに中央寄せにしてページ中央に印刷するように設定し、印刷プレビューを表示します。

●サンプル●

Sub Sample()
    With ActiveSheet.PageSetup
        .CenterHorizontally = True    '---水平方向で中央寄せ
        .CenterVertically = True      '---垂直方向で中央寄せ
    End With
    ActiveSheet.PrintPreview          '---印刷プレビューを表示
End Sub