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;