Table of Content
HAL Forum
procedure EndFooter (
)
Description:
End a footer in a report
if (RepSpec.Media==mtPrinter) then begin
          StartFooter(45,true);
           Black_Divider(0,1);
           OutString(200,0,USetStr(2412),false)
           OutAccumulator(380,4,M4Val,true);
           OutAccumulator(1,5,M4Val,true);
           OutString(200,0,USetStr(2413),false)
           OutAccumulator(380,0,M4Val,true);
           OutAccumulator(1,1,M4Val,true);
           ClearAccumulator(0);
           ClearAccumulator(1);
           OutString(200,0,USetStr(2414),false)
           OutAccumulator(380,2,M4Val,true);
           OutAccumulator(1,3,M4Val,true);
           CopyAccumulator(4,2);
           CopyAccumulator(5,3);
          EndFooter;    
        end;
Related topics:
««