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)?


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.