グループ別に改ページを挿入する : Excel

同じデータをグループとして、改ページを設定し別ページに印刷する方法です。

[ 手順 ]
1) ResetAllPageBreaksメソッドで、ワークシート内の全改ページをリセットします。
2) Do Untilループで1行ずつデータがなくなるまで調べます。
3) 現在の行データと次の行データが異なる場合、改ページを挿入します。
3) 印刷プレビューを実行します。


Homeに戻る > Excel 印刷のTipsへ

Excel実行画面

■ Excel地区データシート

「印刷」ボタンをクリックすると、同一地区をグループ化し改ページを挿入します。
下表の場合、「北海度」「青森」「宮城」の3ページになるはずです。
改ページを挿入するExcel地区データシート

■ 実行結果

1ページ目 : 北海道
Excel印刷結果 北海道

2ページ目 : 青森
Excel印刷結果 青森

3ページ目 : 宮城
Excel印刷結果 宮城


Excel VBAコード

Option Explicit

'印刷ボタン
Private Sub CommandButton2_Click()
    Dim lrow As Long
    
    With Worksheets("Sheet1")
    
        .ResetAllPageBreaks
        
        lrow = 6
        Do Until .Cells(lrow, 2) = ""
            If .Cells(lrow, 2) <> .Cells(lrow + 1, 2) Then
                .Rows(lrow + 1).PageBreak = xlPageBreakManual
            End If
            lrow = lrow + 1
        Loop
        .PrintOut preview:=True
    End With
End Sub

[関連リンク]
シートを1ページに印刷させる
指定ページ以内に入るように設定
複数の範囲を印刷する


Homeに戻る > Excel 印刷のTipsへ

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します


Copyright (c) Excel-Excel ! All rights reserved