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

---

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

編集 削除

---

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

編集 削除

---

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


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


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

編集 削除

---

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


Dim count
Dim maxcont

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


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

編集 削除

---

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

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。