Como Crear un PDF con Rave (RvRenderPDF)

[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;