ページ中央に印刷する【CenterHorizontally/CenterVerticallyプロパティ】【ExcelVBA】

構文

Object.CenterHorizontally 水平方向
Object.CenterVertically        垂直方向

PageSetupオブジェクトで上記設定を行うと、印刷対象を余白を除いた中央寄せに設定します。

ページ中央に印刷するサンプルコード

Public Sub sample()

    '■中央寄せ状態を取得(True or False)
     ActiveSheet.PageSetup.CenterHorizontally
     ActiveSheet.PageSetup.CenterVertically

    '■ActiveSheet印刷設定を中央寄せに設定
     ActiveSheet.PageSetup.CenterHorizontally = True    '■水平方向で中央寄せ
     ActiveSheet.PageSetup.CenterVertically = True      '■垂直方向で中央寄せ

    '■ActiveSheetを印刷
     ActiveSheet.PrintOut
　 
End Sub

注意点

• 中央寄せといっても、印刷余白を除いての中央寄せです。

関連記事

• 印刷を行う【PrintOut メソッド】
• 印刷前に処理実行する/印刷させない【Workbook_BeforePrint】
• 上下左右の印刷余白をなしにする処理をパーツ化する
• Edge/Chromeで印刷設定を行う【Selenium】
• Edge/ChromeでWebページを印刷する【shadowRoot】【Selenium】