Quickreport nach PDF Delphi 7

[KlausV]

Hallo,
Danke.
ich habe es nun hinbekommen, dass das Dokument über den Microsoft PDF Druckertreiber funktioniert. Das PDF wird erzeugt, jedoch obwohl ich den Dateinamen setze, geht ein Dialog hoch und verlangt den Dateinamen.

Ich mache es so:
report.title:= 'Test';
Printer.PrinterIndex := Printer.Printers.IndexOf('Microsoft Print to PDF'); // drucker
Printer.GetPrinter(Device, Driver, Port, DeviceMode);
Printer.SetPrinter(Device, Driver, 'C:\Test.pdf', 0);

Report.print;

Was mache ich hier falsch?

Habe noch etwas gefunden um den promopt zu umgehen:
var
hprinter : THandle;
sdevice,
sdriver,
sport : array[0..80] of Char;
oprinter : TGIS_Printer ;
oprintman: TGIS_PrintManager ;
begin
Printer.PrinterIndex := Printer.Printers.IndexOf('Microsoft Print to PDF');
Printer.GetPrinter( sdevice, sdriver, sport, hprinter ) ;
Printer.SetPrinter( sdevice, sdriver, 'C:\Temp\myfile.pdf', 0);

oprintman := TGIS_PrintManager.Create ;
try
oprinter := TGIS_Printer.Create( Printer ) ;
try
oprintman.Print( GIS, oprinter ) ;
finally
oprinter .Free ;
end;
finally
oprintman.Free ;
end ;
end;

Nur, wie bekomme ich hier meinen Druck da rein;

Danke.

[einbeliebigername]

Hallo,

benutze mal die Suchmaschine deines Vertrauens mit synpdf quickreport. Synpdf ist opensource (https://github.com/synopse/SynPDF). In einem Projekt, wo ich mitarbeite, wird das auch eingesetzt um Quickreporte direkt in PDF umzuwandeln.

Zitat von himitsu:

Du kannst natürlich auch mit deinem Report als JPEG/PNG/... exportieren und anschließend daraus eine PDF erzeugen.

Das ist absolut keine gute Idee. Die PDF's werden riesig, es lässt sich der Text nicht herauskopieren und die Qualität ist mitunter auch bescheiden.

[HolgerX]

Hmm..

mal zum PDF-Druck zusammengefasst:

- Bei Verwendung eines PDF-Druckertreibers wird der 'normale' Druck deiner Applikation verwendet, dies funktioniert auch mit jedem beliebigen anderen Programm was 'drucken' kann. es sind 'keine' Änderungen am deinem Programm nötig, Du musst nur diesen PDF-Drucker als 'Ziel' deines Druckens definieren. Dies kann durch einen Auswahldialog oben links bei der Vorschau des QuickReports geschehen, oder indem Du diesen Drucker als 'Standard' unter Windows festlegst.

- Bei fast allen dieser Druckertreiber (Microsoft PDF Druckertreiber, FreeXP, PDFCreator...) wird standardmäßig ein Dialog (von dieser Software, nicht deiner App) geniert, damit Du das Ziel (eventuell den Dateinamen) der Ablage angeben kannst.

- Bei einigen kann der Treiber (hierzu zählt nicht Microsoft PDF Druckertreiber) kann ein 'festes' Verzeichnis angegeben werden, in dem 'automatisch' die PDFs abgelegt werden. Es kommt dann 'kein' Dialog. Teilweise kann hier auch eine Formatvorlage für die automatische Benennung der PDF-Datei eingestellt werden.

- Generell nutzen diese Druckertreiber meistens den 'Titel' (printer.Title) als Dateiname für das PDF-Dokument.


Alternativen:
- Vergiss den alten Delphi Quickreport, besorge Dir eine Reportkomponente, welche 'selber' PDFs erzeugen kann und tausche in deiner Applikation deine Quickreports gegen diese aus.

- Nutze andere Komponenten wie z.B. synpdf (habe ich nicht mit QuickReport zusammen getestet). Aber hier musst Du ggf. einen Dialog in deine Applikation einbauen, damit die Benennung oder der Ablageort angegeben werden kann.

[KlausV]

Hallo Holger,
Danke für die Zusammenfassung.
Aktuell kommt es nicht in Frage die Berichte durch RAVE oder Fastreport zu ersetzen. Ich habe es so geändert, dass über den PDF Drucker eine Dialog für den Anwender hochkommt. Der Dateiname und Ablageort ist schon angepasst und der User muss nur noch bestätigen. Ist nicht die beste Variante, aber alles Andere ist aktuell zu aufwendig.

Gruß

[kschit]

Ich würde von Synpdf verwenden, schon ein paar mal überlegt, jetzt umgesetzt, funktioniert wirklich super, und es ist noch Support mit delphi 7