Excel VBAで水平方向と垂直方向の中央に印刷する方法

左右中央に印刷するVBAを掲載しています。

Homeに戻る > Excel 数値・文字列・検索・印刷のTipsへ

中央に印刷するには、PageSetupオブジェクトのCenterHorizontallyとCenterVerticallyプロパティを使います。

水平方向を中央寄せをするには、CenterHorizontallyをTrueにします。

垂直方向を中央寄せをするには、CenterVerticallyをTrueにします。

関連する「印刷の書式設定余白を設定する｜PageSetupの使い方」を掲載しています、参照してください。

VBAで中央に印刷する

Excelシート画面

■実行画面

通常の中央寄せをしていない印刷プレビュー画面

中央寄せを設定した印刷プレビュー画面

Excel VBA実行コード

コマンドボタンを2個配置し、ボタンのクリックイベントで印刷を行います。

1つ目のボタンは、CenterHorizontallyとCenterVerticallyをFalseにしているので、中央寄せはしないで左上に印刷されます。

2つ目のボタンは、CenterHorizontallyとCenterVerticallyをTrueにしているので、中央に印刷されます。

印刷はPrintOutメソッドの引数previewをTRUEにし、印刷プレビューを実行しています。

Option Explicit

Private Sub CommandButton1_Click()
    '横方向の中央寄せはしない
    ActiveSheet.PageSetup.CenterHorizontally = False
    '縦方向の中央寄せはしない
    ActiveSheet.PageSetup.CenterVertically = False
    '印刷プレビュー
    ActiveSheet.PrintOut Preview:=True
End Sub

Private Sub CommandButton2_Click()
    '横方向の中央に表示
    ActiveSheet.PageSetup.CenterHorizontally = True
    '縦方向の中央に表示
    ActiveSheet.PageSetup.CenterVertically = True
    '印刷プレビュー
    ActiveSheet.PrintOut Preview:=True
End Sub

Homeに戻る > Excel 数値・文字列・検索・印刷のTipsへ

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