mayu
2020/02/24 (月) 08:40:46
a3615@61ad5
ちなみに、yossiさんが参考にした レコードがない場合も用紙の最後まで罫線を出力する関数
のレポートに対して、ご希望の表示にする場合は
受注コード ヘッダーのフォーマット時イベントに
Private Sub グループヘッダー0_Format(Cancel As Integer, FormatCount As Integer)
Me.Page = 1
End Sub
と記述すれば、あとは 先の回答と同じ手順で出来るでしょう。
※ テキストボックス txtGC は、受注コードのグループフッターに配置すればいいでしょう。
※ RptFixRowFunc_07.accdbのレポートは
関数の引数により、20行分の罫線を出力していますが、
ページフッター( の高さ )で、2行分を消費するため、
1ページに表示可能なデータの最大行数は 実質 18 となっています。
したがって、合計金額表示用テキストボックスのコントロールソースは
=IIf([Page] = -Int(-[txtGC] / 18), [合計], Null)
※ 今回は、[印刷時拡張] プロパティが「 いいえ 」のため、
簡単にグループ毎のページ数が算出可能ですが、
「 はい 」だと、この方法は使えず、難易度は高くなります。
通報 ...