Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Report listener basics?
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire de rapports & Rapports
Versions des environnements
Visual FoxPro:
VFP 9 SP1
OS:
Windows XP SP2
Divers
Thread ID:
01250477
Message ID:
01250634
Vues:
19
This message has been marked as the solution to the initial question of the thread.
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
Cathy Pountney, Microsoft Visual FoxPro MVP
Memorial Business Systems, Inc. (www.mbs-intl.com)

My Website: (www.frontier2000.com)
My Blog: (www.cathypountney.blogspot.com)
My Book: The Visual FoxPro Report Writer - Pushing it to the Limit and Beyond
Free MSDN Article: What's New in the VFP 9.0 Report Writer
Free MSDN Article: The VFP 9.0 Report Writer In Action
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform