Excel 改ページ設定マクロ

質問

Excel で次のコードを使い改ページを設定して印刷しています。

途中に空行があって、その下には印刷不要な部分があります。
空行の上までで印刷を止めたいのですが、どう書き直したらよいのでしょうか、教えて下さい。よろしくお願いします。

With ActiveSheet
maxR = .Range("A" & Rows.Count).End(xlUp).Row
For wR = 4 To maxR
If .Cells(wR, 5).Value <> Cells(wR - 1, 5) Then
'日付が変わる時、改頁の Break Point設定
.Rows(wR).PageBreak = xlPageBreakManual
End If
Next
End With
With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$2" '←2行見出し
.PrintArea = "A1:H" & maxR '←印刷範囲設定
End With

回答No.1

pkh4989 · ベストアンサー

こんにちは。

以下のようにしてください。

With ActiveSheet
　　'maxR = .Range("A" & Rows.Count).End(xlUp).Row
　　maxR = .Range("A1").End(xlDown).Row
　　For wR = 4 To maxR
　　　　If .Cells(wR, 5).Value <> Cells(wR - 1, 5) Then
　　　　　　'日付が変わる時、改頁の Break Point設定
　　　　　　.Rows(wR).PageBreak = xlPageBreakManual
　　　　End If
　　Next
End With
With ActiveSheet.PageSetup
　　.PrintTitleRows = "$1:$2" '←2行見出し
　　.PrintArea = "A1:H" & maxR '←印刷範囲設定
End With

お礼

pkh4989さん　ありがとうございました。
巧くいきました。