Rave Report - Direkt PDF drucken ohne Print-Dialog

[little_budda]

Hallo,

ich habe versucht den Tipp 24von Nevrona umzusetzen.
(Direktes drucken eines PDF Dokumentes ohne Print-Dialog)

Delphi-Quellcode:

procedure Tfrm_main.Button2Click(Sender: TObject);
var MeinBitmap: TRaveBitmap;
    MeineSeite: TRavePage;
    sPdfFileName : string;
begin
  // Dateiname zuweisen
  sNdrFileName := 'c:\willi.ndr';
  // Report öffnen
  RvProject1.Open;
  // Text zuweisen
  RvProject1.SetParam('Label_001', 'Az.: 4221 - 4XXX - 20 - 0XXXX .0X');
  // Grafik zuweisen
  with RvProject1.ProjMan do
    begin
      MeineSeite := FindRaveComponent('Report1.Page1', nil) as TRavePage;
      MeinBitmap := FindRaveComponent('Bitmap1', MeineSeite) as TRaveBitmap;
      MeinBitmap.Image.Assign(imgBarCode.Picture.Bitmap);
    end;
  // Als PDF speichern
  RvSystem1.DefaultDest := rdFile;
  RvSystem1.DoNativeOutput := false;
  RvSystem1.RenderObject := RvRenderPDF1;
  RvSystem1.OutputFileName := sPdfFileName;
  RvSystem1.SystemSetups := RvSystem1.SystemSetups - [ssAllowSetup];
  RvSystem1.Execute;
  // Prüfen ob die Zieldatei existiert
  if (fileexists(sPdfFileName) = true) then
    begin
      // Abschlußmeldung positiv
      ShowMessage('Der Report wurde erstellt.');
      // Aufrufen des erzeugten Reportes
      ShellExecute(Handle, 'open', pchar(sPdfFileName), '', nil, SW_SHOW)
    end
  else
    begin
      // Abschlußmeldung negativ
      ShowMessage('Der Report konnte nicht erstellt werden.');
    end;
end;

Leider erzeugt der Code nur ein leeres PDF Dokument anstelle meinen Report zu drucken.
Fehlt mir evtl die Zuordnung?
Wie binde ich meinen Report (RvProject1) den an das System (RvSystem1)?
:gruebel:

In diesem Thread habe ich ein ähnliches Problem angefragt.
Es mangelt einfach an anständiger Dokumentation über Rave. :-|


Gruß Holger.

[soulies]

hoi,

versuch mal ...

Delphi-Quellcode:

RvProject1.ExecuteReport('Report1'); //RvSystem1.Execute;
...
...
...
RvProject1.Close ;

cya

[little_budda]

Super. Klappt. Danke.
:thumb: