スキルアップ・問題解決なら、モーグにおまかせ！

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

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


  設定項目              内容
  Object                PageSetupオブジェクト [省略不可]

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

●サンプル●
　Sub CenterHorizontallyAndVerticallySamp1()

  　  With ActiveSheet.PageSetup
    　    .CenterHorizontally = True    '---水平方向で中央寄せ
      　  .CenterVertically = True      '---垂直方向で中央寄せ
    　End With

　End Sub