Accessレポートでの改ページ

質問

Accessのレポートで、明細行を必ず８行ずつ印刷したいのです。
８行に満たない場合は、８行になるまで空白行を加えます。
そして、ヘーダー部に明細の金額合計があり、最終ページはヘッダー部を含めて８行にしたいので、明細行が７行となります。
とりあえず↓
印刷する明細行数を常に８の倍数になるように空白行を作り、８行ごとに改ページしてみました。
しかし、最初の１ページ目はちゃんと８行で改行されますが、２ページ目からは、１行ずつしか印刷されません。

例えば、明細レコードが９レコードの場合、空白行含めて１５行の明細をつくりました。
それを以下のプログラムで実行すると、９レコード目から１５レコード目までは、１ページに１行ずつしか印刷されません。
どうすればいいのでしょうか？
どなたかよろしくお願いします。
*****************************************************
Private Sub ページヘッダー_Format(Cancel As Integer, FormatCount As Integer)
'印刷行の初期化
cntPage = 0
End Sub

Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
'印刷行を更新
cntPage = cntPage + 1
If cntPage = 8 Then
'改ページ
Me.Section(acDetail).ForceNewPage = 2
'印刷行の初期化
cntPage = 0
End If

回答No.1

nda23 · ベストアンサー

考え方として、次の２点が挙げられます。
(1)明細行の高さを調節して、８行で１ページ限界になるようにする。
(2)元になるデータに目印を付ける。
話としては(1)が簡単なんですが、何故そうしないのでしょうか？
(2)は例えば明細行に「順番」フィールドを設け0、1、2・・・とします。
Int(順番/8)がページを構成するグループIDになりますね。これを
「並べ替え/グループ化の設定」で指定し、「同一ページ印刷」を
「しない」にすれば異なるグループIDのデータは同一ページに印刷
されない、つまり、改ページされます。
レポート元になるクエリに何らかの並べ替え項目があるなら、この
グループIDを得る方法は簡単です。元データは連続した番号でなく
てもかまいません。

お礼

ご回答どうもありがとございました。
(1)にしなかったのは、改ページ以外にも、行数によっていろいろと編集すべき点があったためです。

改ページプロパティの値を、8行目以外では0にする方法で解決しました。
参考にあるアドバイスどうもありがとうございました。

cntPage = cntPage + 1
If cntPage = 8 Then
Me.Section(acDetail).ForceNewPage = 2
cntPage = 0
Else
Me.Section(acDetail).ForceNewPage = 0
End If