Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Quickreport als Grafik speichern (https://www.delphipraxis.net/70545-quickreport-als-grafik-speichern.html)

Hansa 31. Mai 2006 18:37


Quickreport als Grafik speichern
 
Hi,

Erste Frage (vorab) : man kann ja den Quickreport auch speichern. Was ist QRP für ein Dateiformat ? :shock: Womit und wie läßt sich das bearbeiten ? Die Hauptfrage besteht darin, wie ein Quickreport grafisch nachbearbeitet werden kann. Dies muß nicht oft geschehen. Geht das nur mit Einscannen oder auch anders ?

Union 31. Mai 2006 19:37

Re: Quickreport als Grafik speichern
 
QReport speichert die Daten im WMF Format. Nachbearbeitung nur bedingt möglich. Aber QReport bietet auch Export-Routinen als XLS, TXT, RTF und PDF. Einfach die enstprechende Komponente auf das Formular klicken und die Optionen tauchen im Save-Dialog automatisch auf.

Hansa 31. Mai 2006 21:02

Re: Quickreport als Grafik speichern
 
Wo soll der Krempel denn sein ? :shock:

Union 31. Mai 2006 21:15

Re: Quickreport als Grafik speichern
 
In der QReport Komponentenleiste ganz rechts. Oder Du erzeugst das programmatisch (uses QRExport, Beispiel für RTF):
Delphi-Quellcode:
//------------------------------------------------------------------------
procedure TfrmRbhuZollExport.ExportReportToRtf(Report: TQuickRep;
  FileName: string);
//------------------------------------------------------------------------
// Report als RTF-Datei speichern
//------------------------------------------------------------------------
var
   aExportFilter : TQrExportFilter;
   PathName : Array[0..255] of char;
begin
   SHGetSpecialFolderPath(handle,@PathName,CSIDL_PERSONAL, false);
   FileName := IncludeTrailingBackSlash(PathName)+ExtractFilename(FileName);
   aExportFilter := TQRRTFExportFilter.Create(FileName);
   try
      Report.ExportToFilter(aExportFilter);
      // Dateinamen merken
      FileList.Add(FileName);
   except
      ErrMsg('Export nach %s fehlgeschlagen', [FileName]);
   end;
   aExportFilter.Free;
end;


Alle Zeitangaben in WEZ +1. Es ist jetzt 20:32 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