Ver Mensaje Individual
  #5  
Antiguo 06-08-2011
Loviedo Loviedo is offline
Miembro
 
Registrado: dic 2004
Posts: 214
Reputación: 0
Loviedo cantidad desconocida en este momento
En el Form coloca un RvProject, un RvNDRWriter y los enlazas con la propiedad RvProject.Engine un RvRenderPDF y un RvRenderPrinter.

Para imprimir:
Código Delphi [-]
procedure TForm1.ImprimirRaveReport;
begin
  NDRStream := TMemoryStream.Create;
  try
    RvProject1.open;
    begin
    RvProject1.SaveToStream(NDRStream);
    RvNDRWriter1.Stream:=NDRStream;
    RvProject1.Execute;
    RvRenderPrinter1.Render(NDRStream);
    RvProject1.close;
  finally
    NDRStream.Free;
  end;
end;

Para crear un PDF:
Código Delphi [-]
procedure TForm1.CrearFicherosPDF;
var
  NDRStream:  TMemoryStream;
begin
  NDRStream := TMemoryStream.Create;
  Try
    RvProject1.open;
    mFilename1 := 'C:\Pba.Pdf';
    RvProject1.SelectReport('Report1,true);
    RvProject1.SaveToStream(NDRStream);
    RvNDRWriter1.Stream:=NDRStream;
    RvProject1.Execute;
    RvRenderPDF1.PrintRender(NDRStream,mFilename1);
  finally
    NDRStream.Free;
  end;
  RvProject1.close;
end;
Saludos.
Responder Con Cita