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

関連記事

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

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

: 印刷設定（ページごとに異なるヘッダー・フッターを設定）Page オブジェクト・HeaderFooter オブジェクト

Page オブジェクトページごとに異なるヘッダーおよびフッターを設定する場合、 …

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

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

: ブックを別名で保存（SaveAs メソッド）

ブックを別名で保存（SaveAs メソッド）ブックの変更を保存したり、新規ブッ …

: ウィンドウのタイトル（Window.Caption プロパティ）

ウィンドウのタイトル（Caption プロパティ） Windows.Captio …

: 再計算（Calculation, EnableCalculation, Calculate）

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

: 数式を表示（DisplayFormulas プロパティ）

数式を表示（DisplayFormulas プロパティ）セルに数式が入力されて …

: シート見出しの表示・非表示（DisplayWorkbookTabs プロパティ）

シート見出しの表示・非表示（DisplayWorkbookTabs プロパティ） …

: 印刷品質を設定（PageSetup.PrintQuality プロパティ）

PageSetup.PrintQuality プロパティ PageSetup.P …

: ウィンドウの位置を入れ替える（ActivatePrevious メソッド、ActivateNext メソッド）

ウィンドウの位置を入れ替える ActivatePrevious メソッド、Act …

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