VBAでの改ページ位置の変更

質問

こんばんわ。

検索したり、自分でも考えてみたのですが、壺にハマっているようで、
どなたかお助けください。

Excelで以下の様な表があります。
営業所コード　部署　氏名　・・・（横幅はA4に収まるサイズです）
　　001　　　　001　AAA
　　001　　　　002　BBB
（コードに変化があるたびに、1行空白があります。）
　　002　　　　001　CCC
[------------------------] Ｏ
　　003　　　　001　DDD
　　003　　　　001　DDD
<------------------------> X
　　003　　　　002　EEE

このような表が縦にいくつも並びます。
印刷時にA4サイズの用紙からはみ出した部分について、
上記の「003」のような位置（Xの位置）に自動的に入ってしまう改ページを防ぎ、
003の一番上の行の上部(Ｏの位置)で改ページしたいのです。
何か良い方法はないでしょうか？

縦方向は集計のたびに変位するので、特定のルール化ができなくて困っています。

改ページ位置（行数）を取得して、その上のデータの可否をチェックしていくというのが、
Betterな方法なのでしょうか？
ページ数で20～30ページになるので、このループ処理が良いのかどうか。。。

回答No.3

takibo

ちょっとひねくれた方法かもしれませんがいかがでしょうか？
表自体を印刷するのではなく、印刷用の表に一定の範囲を複写して印刷していきます。

ごくごく簡単なコードを作ってみました。
Sub 印刷()
　With Sheets(1)
　　LR = .Range("A65536").End(xlUp).Row
　　i = 1
　　Do Until i > LR
　　　If .Cells(i, 1).Value = "" Then i = i + 1
　　　j = i + 50
　　　If .Cells(j, 1) <> "" Then
　　　　For m = j - 1 To i Step -1
　　　　　ER = m
　　　　　If .Cells(m, 1).Value = "" Then
　　　　　　ER = m
　　　　　　Exit For
　　　　　End If
　　　　Next
　　　　If ER = i Then ER = j - 1
　　　Else
　　　　ER = j - 1
　　　End If
　　　Range(.Cells(i, 1), .Cells(ER, 10)).Copy Destination:=Sheets(2).Range("A1")
　　　Sheets(2).PrintOut
　　　Sheets(2).Cells.ClearContents
　　　i = ER + 1
　　Loop
　End With
End Sub

【解説】
データのあるシートを[Sheets(1)]とし、印刷用の定形シート[Sheets(2)]を用意します。これを50行・A4 1枚に出力と設定したとします。

データの最終行を取得し、1行めから50行ずつコピーしていきます。その際の処理分岐として
(1)51行目が空白の場合 → 1行めから50行目をコピー
(2)51行目が空白で無い場合、1行ずつさかのぼって行き
　　(a)空白行があればその行までをコピー
　　(b)空白行がなければ、1行めから50行目をコピー

分岐の判断としては
(1)ちょうど50行目でデータが区切られた場合
(2)-(a)50行目がデータの途中で、それより上の範囲にデータ区切りが存在する場合
(2)-(b)1行めから50行目までデータが連続している場合
としています。

>３．1行の行高が一定でない場合がある（横幅を抑えるためセル内で改行あり）
このケースには対応しきれていないので修正が必要かと思われます。

お礼

takiboさん、ご回答ありがとうございました。

ふむふむ。こういう手法も考えられましたね。
何故、気付かなかったんだろう・・・（＾＾；）

ただ、User側の操作を考えると、ステップが増えるため、
今回はWendy02さんのソースを拝借いたしました。

こういうことを一緒に考え、アドバイスをくれる人が傍にいてくれれば、
どんなに心強いか・・・