Printer.Title funktioniert nicht immer
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:
Außerdem versuche ich das Default-Verzeichnis einzustellen,
Printer.PrinterIndex := printer.printers.indexof ('Adobe Pdf');
Printer.Title := 'Test.pdf'; Printer.BeginDoc; Printer.EndDoc; 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:
Weiß jemand eine Erklärung oder Lösung für dieses Problem?
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; Ralf |
Re: Printer.Title funktioniert nicht immer
hast du es schonmal mit einem anderen PDF-Drucker wie bullzip probiert?
|
Re: Printer.Title funktioniert nicht immer
Ich bin aber gerade dabei, mein Programm umzustellen und alles mit der kostenlosen Komponente Power-PDF 0.9 zu realisieren. Diese funktioniert einwandfrei und ist ähnlich zu programmieren wie ein QReport. Leider benötigt die Einarbeitung in die Komponente aber Zeit und die Komponente wird nicht mehr weiterentwickelt.
BullZip PDF Printer ist ein PDF-Printer und verlangt noch die Installation von Ghostscript. Noch einfacher ist vielleicht der AcroPdf-Drucker Da PowerPdf ohne alle Hilfsmittel direkt ein PDF-File erstellt und daher keine Druckerinstallation notwendig ist, werde ich aber zunächst mal bei dieser Komponente bleiben Gruß Ralf |
Alle Zeitangaben in WEZ +1. Es ist jetzt 02:04 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz