Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Report listener basics?
Message
General information
Forum:
Visual FoxPro
Category:
Reports & Report designer
Environment versions
Visual FoxPro:
VFP 9 SP1
OS:
Windows XP SP2
Miscellaneous
Thread ID:
01250477
Message ID:
01250798
Views:
8
Thanks! It works great!

>Change your code to the following. The NOPAGEEJECT holds the printjob open so you can send another report. Use this on the all but the last report. The NORESET tells VFP to not reset the page number and lets you continue numbering with each subsequent report. Use this on all but the first report.
>
>
>
>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
>
Previous
Reply
Map
View

Click here to load this message in the networking platform