Quick Report als PDF

[bundy]

hallo funzt so:

Delphi-Quellcode:

procedure TTransfervolumen_Verwaltung_form.ToolButton8Click(
  Sender: TObject);
var
  NDRStream: TMemoryStream;

begin
RvProject1.Engine:=RvNDRWriter1 ;
RvNDRWriter1.FileName:='.\Report\Report.ndr';
RvProject1.Execute;

  NDRStream := TMemoryStream.Create;
  try
    NDRStream.LoadFromFile('.\Report\Transfervolumen.ndr');
    if SaveDialog1.Execute then
     begin
      RvRenderPDF1.PrintRender(NDRStream,SaveDialog1.FileName);
     end;
  finally
    NDRStream.Free;
  end; { tryf }
  ShowMessage('NDR Converted to PDF');