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