mit folgendem Code versuche ich ein Bild als PDF-Datei auszugeben
Der Name der Datei soll unbedingt vorgeschlagen werden
Folgende Routine funktioniert gelegentlich, nach ein paar Aufrufen erscheint im Save-Dialog aber plötzlich nur noch *.pdf als Vorschlag für die PDF-Datei anstatt z.B. "Test.pdf"
Delphi-Quellcode:
Printer.PrinterIndex := printer.printers.indexof ('Adobe Pdf');
Printer.Title := 'Test.pdf';
Printer.BeginDoc;
Printer.EndDoc;
Außerdem versuche ich das Default-Verzeichnis einzustellen,
dass funktioniert genau solange, wie der Printer.Title funktioniert, dann nicht mehr, obwohl der Eintrag in die Registry klappt.
Liegt das Problem daher möglicherweise am Adobe Distiller?
Delphi-Quellcode:
var
regist: TRegistry;
begin
regist := TRegistry.Create;
try
regist.RootKey := HKEY_CURRENT_USER;
if regist.OpenKey('Software\Adobe\Acrobat Distiller\PrinterJobControl', true) then begin
regist.WriteString('LastPdfPortFolder - ' + ExtractFileName(paramstr(0)) , DirName);
Result := true;
end;
finally
regist.free;
end;
Weiß jemand eine Erklärung oder Lösung für dieses Problem?
Ralf