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

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

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

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

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

VBAで中央に印刷する