problema con el componente rvsystem de report rave

[[ElDioni]]

Pon esto en RvSystem en el menu desplegable de SystemSetup:

ssAlowSetup->False
ssAlowPrinterSetup->False
ssAlowPreviewSetup->False

Luego yo lo hago todo por código Delphi

Para mandar a imprimir

Código Delphi [-]
RvSystem1.DefaultDest:=RdPrinter;

Para hacer un preview

Código Delphi [-]
RvSystem1.DefaultDest:=RdPreview;

Para mandar a un archivo PDF

Código Delphi [-]
RvSystem2.DefaultDest:=RdFile;
    RvSystem2.DoNativeOutput:=false;
    RvSystem2.RenderObject:=RvRenderPDF1;
    RvSystem2.SystemSetups:=RvSystem2.SystemSetups-[ssAllowSetup];
    savedialog1.FileName:='-';
    savedialog1.Execute;
    ruta:='';
    ruta:=extractfilepath(savedialog1.FileName);
    if ruta<>'' then
      begin
                RvSysTem2.OutputFileName:=ruta+'.pdf';
end;

Si te fijas te darás cuenta de que utilizo dos RvSystem distintos, uno para imprimir y previsualizar y otro para mandar a un archivo. De esta forma me aclaro mejor.

Saludos.

[nabucodonosor]

Ok muchas gracias, voy a ser la prueba y luego te aviso
saludos.

[nabucodonosor]

Caballero, disculpa que insista en este punto, pero ya hice lo que usted me indico y continua sucediendo lo mismo, ¿que es lo que estoy haciendo mal? le vuelo a explicar lo que quiero:

Cuando el usuario de la orden de imprimir o de enviar por impresora, pantalla o archivo que no aparezca el cuadro de dialogo.

A continuacion le muestro lo que hice:
1.-de manera manual puse en false ssAllowSetup, ssAllowPrinterSetup y ssAllowPreviewSetup del componente RvSystem, de la propiedad SystemSetups (tambien lo hice a traves del codigo)
2.-al momente de mandarlo a pantalla hago lo siguiente:
with rvProyecto do
try
(*esta es la instruccion que me observaste a que pusiera*)
rvSistema.DefaultDest := RdPreview;
ProjectFile := NombredelReporte;
(*pongo todos los parametros que utilizo en el reporte*)
finally
Execute;
end;
Y sigue poniendo el cuadro de dialogo.
Anteriormente usaba quick report y solamente ponia nomreport.preview o nomreport.print, pero me gusta mas el RAVE. Si es posible mandame un pequeño ejemplo donde funcione o te mando un pequeño ejemplo de lo que yo hago.

Gracias, espero tu apoyo y ayuda, y creo que resolviendo este problema haria lo mismo tanto para rdprinter como rdfile

[Loviedo]

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.

[Loviedo]

Para completar.
Visualizar Report:
Coloca en un Form un ScrollBox,RvProject,RvNDRWriter,RvRenderPreview y un Button. Ya tiene tu Preview simple.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  NDRStream:  TMemoryStream;
begin
  NDRStream := TMemoryStream.Create;
  Try
    // Asignar Propiedades 
    // RvProject1.ProjectFile := 'C:\Prueba.rav'; 
     // RvProject1.Engine := RvNDRWriter1;
    // RvNDRWriter1.StreamMode := smUser;
    RvProject1.open;
    RvProject1.SelectReport('Report1',true);
    RvProject1.SaveToStream(NDRStream);
    RvNDRWriter1.Stream:=NDRStream;
    RvProject1.Execute;
    RvRenderPreview1.Render(NDRStream);
    RvProject1.close;
  except
    NDRStream.Free;
  end;
end;

Saludos.

[Loviedo]

Perdón Try...Finally...End
Saludos.

[nabucodonosor]

Ok, muchas gracias, voy a probarlo. Hasta Luego