De onderstaande module laat zien hoe men in één enkel afdrukproces achtereenvolgens 2 verschillende rapporten kan afdrukken. Dit geeft de gebruiker dus het idee dat er slechts één lay-out is. Een erg interessante mogelijkheid wanneer het rapport op verschillende pagina's een andere lay-out heeft. De methode kan worden uitgebreid naar een groter aantal lay-outs.
local old_REPORTBEHAVIOR
old_REPORTBEHAVIOR=set('REPORTBEHAVIOR')
set REPORTBEHAVIOR 90
select 'monAlias1'
do report_form with 'layout1' ,'preview NOPAGEEJECT'
select 'monAlias2'
do report_form with 'layout2' ,'preview'
select 'monAlias1'
do report_form with 'layout1' ,'noconsole to printer prompt NOPAGEEJECT'
select 'monAlias2'
do report_form with 'layout2' ,'noconsole to printer prompt'
set REPORTBEHAVIOR (m.old_REPORTBEHAVIOR)
Daarbij moet men wel de volgende 2 voorzorgsmaatregelen treffen:
- het script moet effectief het oorspronkelijke REPORTBEHAVIOR herstellen;
- het commando NOPAGEJECT mag niet worden gebruikt bij het laatste commando "report form" van de groep "preview" of de groep "to printer"; anders zal de afdruk uitgesteld worden tot eender welke volgende afdruk in Mercator.
Opmerking: merk op dat het Visual Fox Pro-commando report form niet rechtstreeks wordt opgeroepen. Deze oproep gebeurt via de Mercator-procedure report_form, waardoor ze compatibel wordt met de report listener. Merk ook op dat bij een kettingafdruk zoals hier beschreven, ofwel alle rapporten de reportlistener moeten gebruiken, ofwel geen enkel rapport. Het is dus niet mogelijk om tijdens één afdrukproces een rapport met reportListener en een rapport zonder reportListener op te roepen.