procedure TFExport.DruckReportDetails;
var
OldEngine: TRpComponent;
ReportStream: TMemoryStream;
RvNDRWriter2: TRvNDRWriter;
RvRenderPrinter2: TRvRenderPrinter;
begin
ReportStream := TMemoryStream.Create;
RvRenderPrinter2 := TRvRenderPrinter.Create(
nil);
RvNDRWriter2 := TRvNDRWriter.Create(
nil);
with RvNDRWriter2
do
begin
StreamMode := smUser;
Stream := ReportStream;
end;
OldEngine := RM.RavePro.Engine;
RvNdrWriter2.Title := '
DP-Applikation';
RM.RavePro.Engine := RvNDRWriter2;
RM.RavePro.ExecuteReport('
xxxxReport');
RvRenderPrinter2.NDRStream := ReportStream;
RvRenderPrinter2.RenderPage(1);
RvRenderPrinter2.RenderPage(4);
RvRenderPrinter2.RenderPage(2);
RvRenderPrinter2.RenderPage(2);
RvRenderPrinter2.RenderPage(4);
RvRenderPrinter2.RenderPage(3);
RM.RavePro.Engine := OldEngine;
ReportStream.Free;
RvRenderPrinter2.Free;
RvNDRWriter2.Free;
end;