Excel VBAの覚え書（[ページ レイアウト](PageSetupプロパティ)編）

2022-03-192024-01-07

■WorksheetオブジェクトのPageSetupプロパティ

ページ・レイアウトに関する処理を行う場合、PageSetupオブジェクトのプロパティを使用します。

PageSetupオブジェクトは、WorksheetオブジェクトのPageSetupプロパティで取得します。

PageSetupプロパティの詳細

Microsoftのサイトで「PageSetupプロパティ」を調べると、以下のように記載されています。

• 指定したオブジェクトのすべてのページセットアップ設定を含むPageSetupオブジェクトを返します。

また、オブジェクト・ブラウザでPageSetupプロパティを参照すると以下のように定義されており、何も引数を指定することなく、PageSetupオブジェクトを取得できることがわかります。

1. Property PageSetup As PageSetup

■PageSetupオブジェクトの詳細

PageSetupオブジェクトのプロパティは下表の通りです(メソッドはありません)。

(PageSetupオブジェクトのプロパティ)

■Pagesコレクション、Pageオブジェクト、HeaderFooterオブジェクトの詳細

PagesコレクションおよびPageオブジェクトは、ブック内のページを表すオブジェクトで、PegeSetupオブジェクトのPagesプロパティで取得可能です。

Pageオブジェクトには、ヘッダー(左、中央、右)とフッター(左、中央、右)に対応するプロパティが用意されており、いずれもHeaderFooterオブジェクトを取得可能です。

Pagesコレクション、Pageオブジェクト、HeaderFooterオブジェクトのメソッドおよびプロパティは下表の通りです。

(Pagesコレクションのメソッドおよびプロパティ)

(Pageオブジェクトのプロパティ)

(HeaderFooterオブジェクトのプロパティ)

■行追加に合せて、印刷範囲を縦方向に延ばす処理

「印刷範囲を設定したワークシートに行を追加し、追加した行の分だけ印刷範囲を縦方向に延ばしたい」と思ったことがあり、意外と苦労した経験があるので、サンプル・プログラムを掲載しておきます。

(処理概要)
予め印刷範囲が設定されたシートに別のシートから行単位でデータをコピーし、追加された行の分だけ印刷範囲を縦方向に拡張する処理ですが、プログラムを簡単にするため、1つのブックの中で1シート目から2シート目にコピーするだけにしてあります。

(サンプル・プログラム)
行番号9で出力先シートの最終行を行カウンタにセットし、行番号10～14の繰返し処理で1シート目から2シート目に行単位でコピーし、行番号15～17で印刷範囲を再設定しています。

PageSetupオブジェクトのPrintAreaプロパティには、印刷範囲として設定されている範囲がA1参照形式の文字列(例えば、「A1:H20」のような値)が返って来ますので、行番号15でその値を指定してRangeオブジェクトを取得(この例であれば、「Range(“A1:H20")」のように指定)し、行番号16でRangeオブジェクトのResizeメソッドでRangeオブジェクトの範囲を変更した後、行番号17で印刷範囲を設定し直しています。
（設定したい印刷範囲がわかっているのであれば、単に「sht2.PageSetup.PrintArea = “A1:H30″」のように設定するだけで大丈夫です）

1. Dim sht1, sht2 As Object
2. Dim rng As Range
3. Dim rcnt As Long
4. Dim i As Integer
6. Private Sub Sample1()
7.     Set sht1 = ActiveSheet
8.     Set sht2 = Worksheets(2)
9.     rcnt = sht2.Cells(sht2.Rows.Count, 1).End(xlUp).Row
10.     For i = 1 To sht1.Cells(sht1.Rows.Count, 1).End(xlUp).Row
11.         sht1.Rows(i).Copy
12.         rcnt = rcnt + 1
13.         sht2.Rows(rcnt).PasteSpecial (xlPasteAll)
14.     Next i
15.     Set rng = sht2.Range(sht2.PageSetup.PrintArea)
16.     Set rng = rng.Resize(RowSize:=rcnt)
17.     sht2.PageSetup.PrintArea = rng.Address
18. End Sub