hatena
hatena
2022/07/08 (金) 16:27:40
レポートの詳細セクションのフォーマット時のイベントプロシージャに下記のようなコードを記述することで、強制的に10レコード毎に改ページします。
'詳細のフォーマット時イベント
Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
If Me.CurrentRecord Mod 10 = 0 Then
Me.詳細.ForceNewPage = 2 'カレントセクションの後で改ページ
Else
Me.詳細.ForceNewPage = 0 '改ページしない
End If
End Sub
下余白はなるべく小さくしておいて、自動改ページしないようにしておきます。
この2ページ目はレコードがある部分だけ罫線が入り他は何もない空白になります.
この状態があまり見栄えがよろしくないのと、手書きに追記出来るように
レポート出力時空データを作り罫線を作っています.
そういう目的なら、下記で紹介している方法で空データを作成することなくご希望のことか可能です。
レコードがない場合も用紙の最後まで罫線を出力する - hatena chips
通報 ...