QuickReport und Delphi6 Enterprise

[pmoegenb]

Hallo thion007,
hier ein kleines Beispiel:

Delphi-Quellcode:

uses Hauptmenue, Shellapi, QRPDFFilt;

procedure TJAWVereineFrm.ToolButton4Click(Sender: TObject);
var
   PDFFilt: TQRPDFDocumentFilter;
   Fehler: string;
begin
   PDFFilt := TQRPDFDocumentFilter.Create(HauptFrm.TempPfad+'\Jahresauswertung.PDF');
   PrtJAWVereineFrm.QuickRep1.ExportToFilter(PDFFilt);
   // PDF Reader öffnen
   If Messagedlg('Mit PDF-Reader öffnen ?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
      begin
      // ShellExError selbstdefinierte ausgelagerte Funktion
      Fehler := ShellExError(ShellExecute(0, 'open',
      PChar(HauptFrm.TempPfad+'\Jahresauswertung.PDF'), nil, nil,SW_SHOWMAXIMIZED));
      if Fehler <> '' then
         begin
         Messagedlg(Fehler, mtError, [mbOK, mbHelp], 272);
         end;
      end;
end;