Ok, Pero No Aparece Preview
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;
|