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

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

スポンサーリンク



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


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

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

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


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



VBAで中央に印刷する

Excelシート画面

■実行画面

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

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へ

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


Copyright (c) Excel-Excel ! All rights reserved