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

関連記事

: 印刷の倍率（拡大／縮小）（PageSetup.Zoom プロパティ）

PageSetup.Zoom プロパティ PageSetup.Zoom プロパテ …

: 印刷設定（ヘッダー／フッター）書式コード・VBAコード

印刷設定（ヘッダー／フッター）書式コード・VBAコードヘッダーおよびフッター（ …

: ブックのコピーを保存（SaveCopyAs メソッド）

SaveCopyAs メソッド SaveCopyAs メソッドは、現在開いてい …

: 印刷実行前に総ページ数を取得（ExecuteExcel4Macro メソッド）

印刷の総ページ数を取得（ExecuteExcel4Macro メソッド） Exc …

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

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

: 枠線を含めて印刷（PageSetup.PrintGridlines プロパティ）

PageSetup.PrintGridlines プロパティ PageSetup …

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

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

: 印刷範囲の設定・解除（PageSetup.PrintArea プロパティ）

PageSetup.PrintArea プロパティ印刷範囲を設定するには、Pa …

: スクロールバーの表示・非表示（DisplayHorizontalScrollBar,DisplayVerticalScrollBar）

スクロールバーの表示・非表示の設定 Windows オブジェクトの Displ …

: ワークシートの追加・削除（Add メソッド・Delete メソッド）

新しいワークシートを作成 Add メソッドで、新しいワークシートを指定した場所に …

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