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 を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: 印刷設定（先頭ページのヘッダー・フッターを設定）DifferentFirstPageHeaderFooter, FirstPage

先頭ページに別のヘッダーおよびフッターを設定先頭ページのヘッダーおよびフッター …

: ブックのパスを取得（FullName プロパティ,Path プロパティ）

FullName プロパティ・Path プロパティブックのパス（保存場所）を調 …

: 前後のワークシートを参照する（Previous プロパティ,Next プロパティ)

Previous プロパティ指定したシートの前（左側）のシートを参照します。 …

: ワークシートを参照する（Sheets プロパティ）

Sheets プロパティ Sheets プロパティは、Sheets コレクション …

: アクティブプリンタを変更（ActivePrinter プロパティ）

ActivePrinter プロパティ ActivePrinter プロパティを …

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

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

: ユーザー設定のビュー（CustomViews プロパティ）

ユーザー設定のビュー CustomViews コレクションは、ユーザー設定ビュー …

: 行列番号を含めて印刷（PageSetup.PrintHeadings プロパティ）

PageSetup.PrintHeadings プロパティ PageSetup. …

: 0 を表示するかどうかを設定（DisplayZeros プロパティ）

DisplayZeros プロパティ DisplayZeros プロパティに、T …

: 指定された情報をブックから削除（RemoveDocumentInformation メソッド）

RemoveDocumentInformation メソッド指定された種類の情 …

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