Primer - objekt Engine

Primer - objekt Engine

Donji primer je predstavljen na ispisima 09K i 24J. Želimo postići, da se posebna uplatnica, koja je vrste benda ReportSummary, uvek štampa na donjoj ivici strane.

Najpre proverimo da li je na strani dovoljno prostora. Ako nema, postavimo se na novu. Zatim odredimo poziciju za ispis tako, da se uplatnica štampa na donjoj ivici strane.

procedure PosebnaPoloznicaOnBeforePrint(Sender: TfrxComponent);
begin
   CallQRBeforeBandPrint(Sender, TfrxBand(sender).visible);
   if Engine.CurY >
     Engine.CurY + Engine.FreeSpace - PosebnaPoloznica.Height - 1 then
       Engine.NewPage;                                   
   Engine.CurY := Engine.CurY + Engine.FreeSpace - PosebnaPoloznica.Height - 1;
 end;