グループ別に改ページを挿入する ： Excel
同じデータをグループとして、改ページを設定し別ページに印刷する方法です。
[ 手順 ]
1） ResetAllPageBreaksメソッドで、ワークシート内の全改ページをリセットします。
2） Do Untilループで1行ずつデータがなくなるまで調べます。
3） 現在の行データと次の行データが異なる場合、改ページを挿入します。
3） 印刷プレビューを実行します。
[ 手順 ]
1） ResetAllPageBreaksメソッドで、ワークシート内の全改ページをリセットします。
2） Do Untilループで1行ずつデータがなくなるまで調べます。
3） 現在の行データと次の行データが異なる場合、改ページを挿入します。
3） 印刷プレビューを実行します。
Homeに戻る > Excel 印刷のTipsへ
Excel実行画面
■ Excel地区データシート「印刷」ボタンをクリックすると、同一地区をグループ化し改ページを挿入します。
下表の場合、「北海度」「青森」「宮城」の３ページになるはずです。
■ 実行結果
1ページ目 ： 北海道
2ページ目 ： 青森
3ページ目 ： 宮城
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
'印刷ボタン
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