今回は【VBA入門 – 印刷設定編】ということで、余白の指定方法について解説します。
プロパティ
印刷設定には、WorkSheetオブジェクトのPageSetupプロパティを使用します。
余白を設定するためのサンプルコードを紹介します。
中央に調整する
水平方向に中央調整
|
1 2 |
dim sh as WorkSheet: set sh = new WorkSheet("対象シート名"); sh.PageSetup.CenterHorizontally = True |
垂直方向に中央調整
|
1 2 |
dim sh as WorkSheet: set sh = new WorkSheet("対象シート名"); sh.PageSetup.CenterVertically = True |
水平/垂直方向に中央調整
|
1 2 3 |
dim sh as WorkSheet: set sh = new WorkSheet("対象シート名"); sh.PageSetup.CenterHorizontally = True sh.PageSetup.CenterVertically = True |
値を指定して調整する
自身で値を指定したい場合は、次の方法で指定してください。
上の余白を設定
|
1 2 |
dim sh as WorkSheet: set sh = new WorkSheet("対象シート名"); sh.PageSetup.TopMargin = 設定したい値 |
下の余白を設定
|
1 2 |
dim sh as WorkSheet: set sh = new WorkSheet("対象シート名"); sh.PageSetup.BottomMargin = 設定したい値 |
左の余白を設定
|
1 2 |
dim sh as WorkSheet: set sh = new WorkSheet("対象シート名"); sh.PageSetup.LeftMargin = 設定したい値 |
右の余白を設定
|
1 2 |
dim sh as WorkSheet: set sh = new WorkSheet("対象シート名"); sh.PageSetup.RightMargin = 設定したい値 |
設定を確認する
余白を設定したら次のコードで設定状態を確認しましょう。
|
1 2 |
dim sh as WorkSheet: set sh = new WorkSheet("対象シート名"); sh.PageSetup.PrintPreview |
これにより、印刷プレビューを表示することができます。
確認しながら調整したい場合は、こちらのコードが便利です。
