Error Conditional Page Break On Grouping

[GreatDreamer]

I am calling EjectPage() from Group section when the gsTradeStatusVal = "Trade Insert", but I am getting an error as follows:

NewReportApp::gsTradeStatus%PageBreakAfter(9): Invalid procedure reference. - (EjectPage)
1 Semantic Error(s) found

Does anyone know what might be the cause. Thank You Very Much for your help.
Here is the modification I made to the PageBreakAfter() in Group section:

Function PageBreakAfter( ) As Boolean
PageBreakAfter = False
'PageBreakBefore = False
If gsTradeStatusVal = "Trade Insert" Then
'PageBreakAfter= True
'PageBreakBefore= True
'Super::AcPageList::EjectPage()
'Super::MxBlankReportSimplePageList::EjectPage()
NewReportApp::MxBlankReportSimplePageList::EjectPage()
End If

PageBreakAfter = Super:ageBreakAfter( )
' Insert your code here
End Function

 

[milton747]

I just tried this and it worked OK. Caused the page to throw. PageBreakAfter() is in a group section.
Milt.

===========

Function PageBreakAfter( ) As Boolean
PageBreakAfter = Super:ageBreakAfter( )


Dim a As AcPageLIst

Set a = GetPageList()

a.EjectPage()

End Function