Printer.Title funktioniert nicht immer

[Ralf Stehle]

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