|
下のようなシートで
タイトル行は1・2行の2行分
3・4行は空白です。
5行目からB列の内容が異なるときに
行変えして行変えを基準に
順次印刷をしたいのですが
印刷のコードをどこに入れると良いのでしょうか?
アドバイスお願いします。よろしくお願いします。
また項目行とデータ行を続けて印刷出力させるには
どのような方法があるのか教えてください。
A B C
1 AAA BBB CCC
2 111 121 131
3
4
5 a aa
6 b bb
7 b bb
8 c cc
9 c cc
Sub test()
Dim RR As Long, Rmax As Long, ws As Worksheet
Set ws = ActiveWorkbook.ActiveSheet
With ws.UsedRange
Rmax = .Cells(.Count).Row
End With
ActiveSheet.PageSetup.PrintTitleRows = _
ActiveSheet.Rows("1:2").Address
With ws
.DisplayPageBreaks = False
For RR = 5 To Rmax
If .Cells(RR, 2).Value <> .Cells(RR - 1, 2).Value Then
.HPageBreaks.Add .Cells(RR, 2)
End If
Next
.DisplayPageBreaks = True
End With
End Sub
1ページ目の印刷は
AAA BBB CCC
111 121 131
a aa
2ページ目の印刷は
AAA BBB CCC
111 121 131
b bb
b bb
このように仕上げて1〜3ページ印刷仕上げにしたいのです。
|
|