Hallo!!
So für alle die es interressiert, hab ne Lösung gefunden. Sieht zwar komisch aus, aber es funzt (ohne Fehlermeldungen).
Code:
procedure Tbestdruck.QuickRep3AfterPrint(Sender: TObject);
var ini: TIniFile;
begin
schongedruckt:=true; // ob schon gedruckt wurde????
ini:=TIniFile.create(ExtractFilePath(ParamStr(0))+'\Tabellen\Letzterechnung.ini');
ini.Writeinteger('Rechnung','rechnungsnummer',rechnungsnummer);
ini.Writeinteger('Lieferung','liefernummer',liefernummer);
ini.free;
end;
procedure Tbestdruck.QuickRep3AfterPreview(Sender: TObject);
begin
bitbtn4.onclick(sender);
end;
procedure Tbestdruck.BitBtn4Click(Sender: TObject);
var
path,filename,test2:string;
begin
if schongedruckt then begin
test2:='meiermax';
path:=(ExtractFilePath(ParamStr(0))+'\Rechnungen\');
filename:= path+test2+'.qrp';
quickrep3.Printer.Save(filename);
end;
schongedruckt:=false;
end;
mfg schniede