改ページの追加と解除
印刷時に改ページを指定するには、HPageBreaks コレクション（ワークシート内のすべての水平方向の改ページ）または、VPageBreaks コレクション（ワークシート内のすべての垂直方向の改ページ）の Add メソッド を使用します。
追加したすべての改ページを解除するには、Worksheet オブジェクト の ResetAllPageBreaks メソッド を使用します。
水平方向の改ページを追加する（HPageBreaks.Add メソッド）
【書式】
object.HPageBreaks.Add ( before )
引数・戻り値
- object ・・・ 対象となる Worksheet オブジェクト を指定します。
- before ・・・ 基準となるセル（Range オブジェクト）を指定します。ここで指定した範囲の上側に、新しい改ページが追加されます。
垂直方法の改ページを追加する（VPageBreaks.Add メソッド）
【書式】
object.VPageBreaks.Add ( before )
引数・戻り値
- object ・・・ 対象となる Worksheet オブジェクト を指定します。
- before ・・・ 基準となるセル（Range オブジェクト）を指定します。ここで指定した範囲の左側に、新しい改ページが追加されます。
すべての改ページを解除する（ResetAllPageBreaks メソッド）
【書式】
object.ResetAllPageBreaks
引数・戻り値
- object ・・・ 対象となる Worksheet オブジェクト を指定します。
改ページ設定の使用例
サンプルVBAソース
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 |
Sub Sample_PageBreaks() Dim w As Worksheet Set w = ActiveSheet '印刷範囲を設定 w.PageSetup.PrintArea = "A1:J24" 'すべての改ページを解除 w.ResetAllPageBreaks '改ページを追加（水平方向） w.HPageBreaks.Add Range("A13") '改ページを追加（垂直方向） w.VPageBreaks.Add Range("F:F") End Sub |
実行結果
