Hallo Tim,
versuch es doch mal so...
Delphi-Quellcode:
const Druckername = 'PDFCreator';
var Printer:TPrinter;
i, Index:integer;
begin
Printer:=TPrinter.create;
try
Index:=-1;
for i:=1 to Printer.Printers.Count do
if pos(lowercase(Druckername), lowercase(Printer.Printers[i-1])) > 0 then
Index:=i-1;
if Index >= 0 then begin
Report.PrinterSettings.PrinterIndex:=Index;
Report.Print;
end
else MessageDlg('Drucker ('+Druckername+') nicht gefunden.', mtError, [mbOK], 0);
finally
Printer.free;
end;
end;
Das eigentliche Problem besteht nur darin, dem Druckertreiber mitzuteilen, in welche Datei er schreiben soll. Mögliche Links dafür habe ich ja oben schon erwähnt.
Gruss
Thorsten