Excel：中央に印刷させるVBA｜CenterHorizontally・CenterVertically

水平と垂直方向それぞれ、VBAで中央に印刷させることができます。

Homeに戻る > Excel 印刷のTipsへ

Excel VBAで、PageSetupのCenterHorizontally = Trueにすると水平方向を中央に印刷させることができます。

PageSetupでCenterVertically = Trueにすると垂直方向を中央に印刷させることができます。

関連するVBA「印刷を開始するページ番号を変更する」を掲載しています、参照してください。

VBAで中央に印刷させる

Excelシート画面

■実行フォーム

「中央に印刷」ボタンをクリックすると水平・垂直方向で中央寄せにします。

「解除」ボタンをクリックすると通常の印刷になります。

・通常に印刷すると左上に印刷されます。

・中央寄せでの印刷結果

Excel VBA実行コード

シートのボタンをクリックすると下のイベントが発生します。

Option Explicit

'解除ボタン
Private Sub CommandButton1_Click()
    '水平方向を解除
    Worksheets("Sheet1").PageSetup.CenterHorizontally = False
    '垂直方向を解除
    Worksheets("Sheet1").PageSetup.CenterVertically = False

    '印刷プレビュー
    Worksheets("Sheet1").PrintPreview
End Sub

'中央に印刷ボタン
Private Sub CommandButton2_Click()
    '水平方向を中央に印刷
    Worksheets("Sheet1").PageSetup.CenterHorizontally = True
    '垂直方向を中央に印刷
    Worksheets("Sheet1").PageSetup.CenterVertically = True

    '印刷プレビュー
    Worksheets("Sheet1").PrintPreview
End Sub

Homeに戻る > Excel 印刷のTipsへ

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します