Rave, CodeBased, Vorschau

[merlin17]

endlich bin ich dazugekommen....

ich denke einmal, die Struktur von Nevrona Rave Reports ist dir nicht 100% klar (keine Panik, Du bist nicht alleine ....).

tipp Rave @ EKON 12 spring


Wenn Du über RvSystem druckst erzeugt es einen Output, du willst aber sicherlich nur die Voransicht haben
willst, ist der Weg über NDRWriter sinnvoll... ich habe Dir einmal beide Weg unten aufgeführt....


thomas, TeamNevrona

Delphi-Quellcode:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  RvSystem1.SystemFiler.StreamMode := smFile;
  RvSystem1.SystemFiler.FileName := 'Delphipraxis.NDR'; // löschen nciht
  //vergessen!
  RvSystem1.SystemSetups := RvSystem1.SystemSetups - [ssAllowSetup];
  RvSystem1.SystemOptions := Rvsystem1.SystemOptions - [soNoGenerate];
  RvSystem1.Execute; // Default auf Printer .... alles andere macht wenig
  //Sinn
  with RvRenderPreview1 do
  begin
    ScrollBox := ScrollBox1;
    render('Delphipraxis.NDR');
  end;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
var
  MeinNDRStream: TMemoryStream;
begin
  MeinNDRStream := TMemoryStream.Create;
  RvNDRWriter1.StreamMode := smUser;
  RvNDRWriter1.Stream := MeinNDRStream;
  RvNDRWriter1.Execute;
  MeinNDRStream.Position := 0;
  with RvRenderPreview1 do
  begin
    ScrollBox := ScrollBox1;
    render(MeinNDRStream);
  end;
end;