Ver Mensaje Individual
  #2  
Antiguo 12-07-2011
Avatar de ElDioni
[ElDioni] ElDioni is offline
Miembro Premium
 
Registrado: jul 2005
Ubicación: Murcia (España)
Posts: 935
Reputación: 21
ElDioni Va por buen camino
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.
Responder Con Cita