クリスタルレポートで改ページするには？

K 2002-10-17 05:21:10 No: 76230

クリスタルレポート（ver8.5）に関してお聞かせください。
詳細部分で、10行出力したら改ページ、と言うようにしたいのですが
どのようにすればよいのでしょう？
どなたかお分かりになる方おりましたら教えてください。

特命 2002-10-17 18:59:50 No: 76231

グローバルの変数を使って、
詳細を１つ表示するごとに、
変数をインクリメントし、
１０に達したら、
出力後に改ページし、
値を０にリセットするっていう感じで
できると思います。

K 2002-10-17 20:16:15 No: 76232

ご回答ありがとうございました。
現在、以下のような構文をサイトなどを参考にして組んでみたのですが、
上手くいきません。

Private Sub セクション10_Format(ByVal pFormattingInfo As Object)

If pagenumber = 1 Then
    maxcount = 10
    count = count + 1
    If count < maxcount Then セクション10.NewPageAfter = ddNPNone
    If count >= maxcount Then
    セクション10.NewPageAfter = ddNPBefore
    count = 0
    End If

End Sub

クリスタルレポートに関する参考書などもなかなかみつからないので
正直関数もあまりわからないのですが・・・。
上記の構文は完全な誤りなのでしょうか？

K 2002-10-17 20:54:22 No: 76233

すいません、変数の宣言を書くのを忘れました。

Dim count
Dim maxcont

Private Sub セクション10_Format(ByVal pFormattingInfo As Object)

それと変数はグローバルでないといけないのでしょうか・・・？

CR大変 2002-11-06 00:38:04 No: 76234

クリスタルレポートの改ページの基本は、
ヘッダー + 詳細 + フッター＝１ページ分の長さ（縦）
となってます。この場合、詳細＝１０行は決まってます。
したがって、ヘッダーとフッターの長さを適当に調整すれば、自動で改ページ
されます。（これが一番楽な方法？）