printReport2 - drucken mit einmaliger Druckaufforderung

Modified on 13/02/2008 11:35 by manuel Categorized as Nicht kategorisiert

((([image| |http://www.cp-austria.at/website/DesktopModules/Wiki/images/Home.gif|MainPage] » [MainPage|Startseite] » [netFramePlattform|netFrame als Plattform Menü] » [GlobaleMethoden|Globale Methoden] | {searchbox} [Search.aspx?FullText=1|Erweiterte Suche])))

Es sollte eine Funktion erstellt werden, die die Methode printReport aufruft und das Ergebnis{BR}
als Result zurückliefert.{BR}
{BR}
'''Bespiel: '''{BR}
{BR}
<code lang="vb">
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;
</code>
{BR}
Nun muss nur noch abgefragt werden ob die Funktion “true” oder “false” liefert und die{BR}
Druckanfrage akzeptieren bzw. ablehnen.{BR}
{BR}
'''Beispiel:'''{BR}
{BR}
<code lang="vb">
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;
</code>

CP Wiki

Navigation¶

printReport2 - drucken mit einmaliger Druckaufforderung