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
