printReport2 - drucken mit einmaliger Druckaufforderung

» Startseite » netFrame als Plattform Menü » Globale Methoden | » Erweiterte Suche

Es sollte eine Funktion erstellt werden, die die Methode printReport aufruft und das Ergebnis
als Result zurückliefert.

Bespiel:


function printBeispiel(aAction: string;): boolean;
   var
   aReport: TfrmReportData;
begin;
   result := false;
   aReport:= TfrmReportData.create('Reinigungsliste');
   try
      aReport.setParam('GRID', booltoint(checkGrid.checked));                               
      if aAction = 'Print' then
      begin
         result := aReport.printReport2(aPrint);
      end;
   finally
      aReport.free;
   end;
end;

Nun muss nur noch abgefragt werden ob die Funktion “true” oder “false” liefert und die
Druckanfrage akzeptieren bzw. ablehnen.

Beispiel:


rocedure ButtonPrint_OnClick(Sender: Integer);
var
begin;
   if printBeispiel('Print')  = true then
   begin
     TableName.Next;     
     while not TableST_ID.Eof do
     begin
       printBeispiel('Print');
       TableName.Next;
     end;
   end;
end;