Rave Report Problem

[Andreas Schilling]

Das ist der Teil um an die Reportnamen zu kommen

Delphi-Quellcode:

// Funktion für eine externe *.rav -Datei mit mehreren Reports drinnen

function Zeige_ReportListe(Rave_Datei : string) : TStringList;
  var slReportliste : TStringList;
begin
  // Rave_Datei ist der Pfad der externen Rave-Datei z.B. "C:\Temp\Test.rav'
  if FileExists(Reportname)
  then begin
    slReportliste := TStringList.Create;

    Raveprojekt1.Active := false;
    Raveprojekt1.ProjectFile := Rave_Datei;
    Raveprojekt1.Active := true;
    Raveprojekt1.GetReportList(slReportliste, false);
    
  end;
  Result := slReportliste; // beinhaltet alle in der *.rav vorhandenen Reportdateien
end;

// Ergebnis in Menü einlesen

procedure Drucken(Rave_Datei, Rave_Report : string);
begin
  Raveprojekt1.Active := false;
  Raveprojekt1.ProjectFile := Rave_Datei;
  Raveprojekt1.SelectReport(Rave_Report, False);

  RvSystem1.SystemPrinter.Title := 'Name im Druckerspooler';
  RvSystem1.DefaultDest := rdpreview;

  Raveprojekt1.ExecuteReport(Ravereport);
end;