Excel で一つのシートを２枚に分けて印刷(：２)

質問

前に印刷範囲のマクロ設定を教えていただきました。

__________A______B_____C_____D
1_______名前____金額__日付__
2______あああ__55555___6___ｋｋｋ
3______いいい__________6___ｈｈｈ
4______ううう__33333___6___ｐｐｐ
---------------------------------
5______えええ__44444___8___ｇｇｇ
6______おおお__77777___8___ｌｌｌ
7______あいう__22222___8___ｒｒｒ
8
9______＿合計_iiiiii_____________

8 の空行と 9 の合計行がある場合、印刷範囲を A1:D4 と A5:D7 までとし、合計欄は印刷範囲外とするにはどうしたらよいでしょうか。教えて下さい。よろしくお願いします。

8,9 行がない場合は次のコードでした。

Sub Test()
　Dim i
　i = 3
　Do Until Cells(i, 3) = ""
　　If Cells(i, 3).Value <> Cells(i - 1, 3) Then
　　　Rows(i).Select
　　　ActiveWindow.SelectedSheets.HPageBreaks.Add _
　　　　　　　　　　Before:=ActiveCell
　　End If
　　i = i + 1
　Loop
　'ActiveSheet.PrintOut
End Sub

回答No.1

ASIMOV

Loop の次に
ActiveSheet.PageSetup.PrintArea = "$A$1:$D$" & i - 1
を、追加したらどうでしょうか

お礼

ASIMOVさん　ありがとうございました。