Active reports 换页打印问题

[wind13]

我在Active reports 中加如如下代码:
Private Sub PageHeader_Format()
On Error GoTo E_PageHeader_Format
Const METHODNAME As String = "PageHeader_Format"

flngPage = flngPage + 1
flngDetailCount = 0
end sub

Private Sub GroupFooter_Format()
On Error GoTo EXCEPTION
Const METHODNAME As String = "GroupFooter_Format"

GroupFooter.NewPage = ddNPAfter

end Sub

Private Sub Detail_Format()


If Not fadoRs.EOF Then
---中间省略
end if

If (flngCount Mod (MAXLINE + 1)) Then
flngGroupCount = flngGroupCount + 1
GroupHeader.GroupValue = flngGroupCount
ElseIf bChangFlag = True Then
bChangFlag = False
flngGroupCount = flngGroupCount + 1
GroupHeader.GroupValue = flngGroupCount
End If

end sub

Private Sub GroupFooter_Format()
On Error GoTo EXCEPTION
Const METHODNAME As String = "GroupFooter_Format"
GroupFooter.NewPage = ddNPAfter
end Sub

上边的程序运行完之后明明GroupHeader.GroupValue 的值是3,可是只打印一页出来让人很郁闷.那位能指点一下,谢谢了

[wind13]

up