Excel（エクセル）のマクロ・ＶＢＡ・関数・操作などのメモ

印刷時の改ページ設定（Add,ResetAllPageBreaks）

2015/10/21

改ページの追加と解除

印刷時に改ページを指定するには、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ソース

　
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

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

　

実行結果

- ブック・シートの操作 HPageBreaks.Add メソッド, ResetAllPageBreaks メソッド, VBA基本, VPageBreaks.Add メソッド, Worksheet オブジェクト, エクセルVBA, ブック・シートの操作, 印刷

Tweet

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: 印刷のタイトル行、タイトル列を設定（PrintTitleRows,PrintTitleColumns）

PageSetup.PrintTitleRows プロパティ PageSetup …

: 再計算（Calculation, EnableCalculation, Calculate）

ワークブックやシートの再計算通常、Excel では、自動的に再計算が行われる設 …

: PDF または XPS 形式で出力（ExportAsFixedFormat メソッド）

ExportAsFixedFormat メソッドブックやシートの内容を PDF …

: ワークシートのコピー・移動（Copy メソッド Move メソッド）

Copy メソッド Copy メソッドで、指定した位置にワークシートの複製を作成 …

: ワークシートの非表示・再表示（Visible プロパティ）

ワークシートの表示・非表示ワークシートを非表示にしたり、非表示にしたワークシー …

: ページ数に合わせて印刷（FitToPagesTall, FitToPagesWide）

PageSetup.FitToPagesTall プロパティ PageSetup …

: Excel を全画面表示（DisplayFullScreen プロパティ）

DisplayFullScreen プロパティ DisplayFullScree …

: 指定したセル範囲が含まれるワークシートを参照する（Worksheet プロパティ）

Worksheet プロパティ Worksheet プロパティは、指定したセル範 …

: 画面の上端・左端を設定（ScrollRow プロパティ、ScrollColumn プロパティ）

画面の上端・左端を設定 ScrollRow プロパティで、指定した行を画面上端に …

: ブックが共有モードか確認する（MultiUserEditing プロパティ）

ブックが共有モードか確認する（MultiUserEditing プロパティ）共 …

PREV: 印刷設定を高速化（PrintCommunication プロパティ）
NEXT: 印刷のページ区切り（DisplayPageBreaks プロパティ）