Como Crear un PDF con Rave (RvRenderPDF)

[Oriol Carreras]

Yo utilizo este codigo fuente y me ha funcionado:

necesitamos un TRvSystem, TRvProject y un TRvRenderPDF
Vinculamos el RvProject.Engine -> RvSystem

RvSystem.DefaultDest := rdFile;
RvSystem.DoNativeOutput := false;
RvSystem.RenderObject := RvRenderPdf;
RvSystem.OutputFileName := 'c:\ruta\mifichero.pfd';
RvSystem.SystemSetups := RvSystem.SystemSetups - [ssAllowSetup];
RvProject.Execute

Saludos.

uri.

[[FGarcia]]

Gracias por responder, El codigo que pones ya lo habia visto sin embargo esto solo es valido para crear el archivo pdf, yo necesito que se imprima en la impresora y a la vez que se genere el archivo pdf. Revisando los foros de noticias encontre que para evitar el primer error que menciono en el post anterior debo declarar lo siguiente en codigo del dpr:

Código Delphi [-]
//en USES 
SysUtils, RpDefine,
 
//en el codigo de inicializacion:
 
{$R *.res}
 
begin

  RPDefine.DataID := IntToStr(Application.Handle);
  Application.Initialize;
  Application.Title := 'MiApp';

El segundo error aun no se que es o a que se debe. Agradesco tu ayuda y si tienes otra sugerencia sera bienvenida.

[Oriol Carreras]

Eso me pasa por no leer lo que tengo que leer

Respecto al segundo error has provado en lugar de utilizar

 SaveToStream(Informe);

utilizar

SaveRaveBlob(Informe);

ya que tambien tiene como parametro un TStream y tiene mas pinta de formatear el stream con el formato de Rave.
No lo he provado, ya me diras algo.

Y en el caso de que tampoco funcione, repetir el proceso dos veces:
1. para imprimir
2. para genererar el pfd
con la misma query, sin abrir ni cerrar los datos son los mismos.

saludos.

uri.

[martita]

hola he provado el codigo que pusieron
pero se va directo a generar el archivo pdf y no muestra el reporte
en pantalla osea un preview, incluso le agregue una linea al codigo
que esta marcarda con asteriscos para ver si asi hacia preview
pero negativo se va directo a generar el pdf, como puedo hacer
para que me genere el preview en pantalla y tambien genere el pdf?

rvproject1.ProjectFile:=lreporte.Caption;
rvproject1.SetParam('periodo1',FormatDateTime('dd/mm/yyyy', cal1.Date));
rvproject1.SetParam('periodo2',FormatDateTime('dd/mm/yyyy', cal2.date));
rvproject1.SetParam('fecha',FormatDateTime('dd/mm/yyyy', date()));
rvproject1.SetParam('hora',FormatDateTime('HH:MM:SS', time()));
rvproject1.SetParam('equipo', edit1.text);
rvproject1.SetParam('chofer', edit2.text);

rvsystem1.DefaultDest:=rdpreview; //***** agregue esta linea
RvSystem1.DefaultDest := rdFile;
RvSystem1.DoNativeOutput := false;
RvSystem1.RenderObject := RvRenderPdf1;
RvSystem1.OutputFileName := 'c:\mifichero.pdf';
RvSystem1.SystemSetups := RvSystem1.SystemSetups - [ssAllowSetup];
rvsystem1.DefaultDest:=rdpreview;

rvproject1.Execute;