【VBA入門】印刷設定編 – 余白を指定する方法

今回は【VBA入門 – 印刷設定編】ということで、余白の指定方法について解説します。

プロパティ

印刷設定には、WorkSheetオブジェクトのPageSetupプロパティを使用します。

余白を設定するためのサンプルコードを紹介します。

中央に調整する

水平方向に中央調整

dim sh as WorkSheet: set sh = new WorkSheet("対象シート名");
sh.PageSetup.CenterHorizontally = True

垂直方向に中央調整

dim sh as WorkSheet: set sh = new WorkSheet("対象シート名");
sh.PageSetup.CenterVertically = True

水平/垂直方向に中央調整

dim sh as WorkSheet: set sh = new WorkSheet("対象シート名");
sh.PageSetup.CenterHorizontally = True
sh.PageSetup.CenterVertically = True

値を指定して調整する

自身で値を指定したい場合は、次の方法で指定してください。

上の余白を設定

dim sh as WorkSheet: set sh = new WorkSheet("対象シート名");
sh.PageSetup.TopMargin = 設定したい値

下の余白を設定

dim sh as WorkSheet: set sh = new WorkSheet("対象シート名");
sh.PageSetup.BottomMargin = 設定したい値

左の余白を設定

dim sh as WorkSheet: set sh = new WorkSheet("対象シート名");
sh.PageSetup.LeftMargin = 設定したい値

右の余白を設定

dim sh as WorkSheet: set sh = new WorkSheet("対象シート名");
sh.PageSetup.RightMargin = 設定したい値

設定を確認する

余白を設定したら次のコードで設定状態を確認しましょう。

dim sh as WorkSheet: set sh = new WorkSheet("対象シート名");
sh.PageSetup.PrintPreview

これにより、印刷プレビューを表示することができます。
確認しながら調整したい場合は、こちらのコードが便利です。