>SELECT IngRptAll > >oListener = NEWOBJECT("EffectsListener",HOME(2) + "\Solution\Europa\DynamicFormatting.prg") >IF tlPrint > oListener.OUTPUTTYPE = 0 >ELSE > oListener.OUTPUTTYPE = 1 >ENDIF > >FOR nPage = 1 TO nPages > DO CASE > CASE nPage = 1 > lcClause = 'NOPAGEEJECT' > CASE nPage = nPages > lcClause = 'NORESET' > OTHERWISE > lcClause = 'NOPAGEEJECT NORESET' > ENDDO > REPORT FORM IngRptNew4 OBJECT oListener &lcClause >ENDFOR > >SET REPORTBEHAVIOR &nOldReportBehavior >