topic-20765

Board index FiveWin for Harbour/xHarbour Footer on last page.

HunterEC

Posts: 723

Joined: Tue Sep 04, 2007 08:45 AM

Footer on last page.
Posted: Sun Jan 30, 2011 08:10 AM

Guys:

How can I define a report footer that only prints on the last page ? Thank you.

ADutheil

Posts: 368

Joined: Sun May 31, 2009 06:25 PM

Re: Footer on last page.
Posted: Sun Jan 30, 2011 02:52 PM

Have a try with oReport:bPostEnd := { || PrintWhatYouWant() }

Regards,

André Dutheil

FWH 13.04 + HB 3.2 + MSVS 10

Otto

Posts: 6983

Joined: Fri Oct 07, 2005 07:07 PM

Re: Footer on last page.
Posted: Sun Jan 30, 2011 04:25 PM

Best regards,
Otto

Code (fw): Select all Collapse

 ACTIVATE REPORT oReport ON STARTPAGE IIF( lPrint=.f.,( lPrint := .t., graph2(oReport,aBeschriftung,aReihe1)), );
      ON END (;
       oReport:Say(5, transform( 100*( oReport:aColumns[3]:ntotal / ( AnzahlBetten * ( datum2-datum1 ) ) ) ,;
       "@E 9999999.99") ,2 ,RPT_RIGHT , oReport:nRow + 20),;
       oReport:Say(6, transform( 100*( (oReport:aColumns[3]:ntotal +oReport:aColumns[4]:ntotal) / ( AnzahlBetten * ( datum2-datum1 ) ) ),;
       "@E 9999999.99"), 2, RPT_RIGHT, oReport:nRow + 20) ,;
       oReport: Say( 1, "Vollbelegstage: ERW" + str(ROUND(oReport:aColumns[3]:ntotal / ( AnzahlBetten ),0)) , 1, , oReport:nRow + 120 ) )

HunterEC

Posts: 723

Joined: Tue Sep 04, 2007 08:45 AM

Re: Footer on last page.
Posted: Mon Jan 31, 2011 06:43 AM

Otto, ADutheil:

Thank you very much. Worked flawlessly.

FiveTech Support Forums

Continue the discussion