( |
|
|
|||
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: |