|
//** Supongo que estás utilizando Crystal Reports VCL component.
//* Primero el nombre del reporte
Shopping.ReportName:='C:\Program Files\SitiSystems\SmartQuote\DetProZeusGen.rpt';
//** Luego te deshaces de los datos antigüos:
Shopping.DiscardSavedData;
//** Luego los cambios que quieras hacer al archivo de reporte
Shopping.ReportName:='C:\Program Files\SitiSystems\SmartQuote\DetProZeusGen.rpt';
Shopping.ReportTitle:='Payment Order: '+inttostr(Qry_ult.fieldbyname('id').value)+' '+Qry_BusSup.fieldbyname('supplier').Value;
Shopping.Paramfields[0].currentvalue:=dbgrid1.Fields[0].Value;
Shopping.Paramfields[1].currentvalue:=Qry_BusSup.fieldbyname('supplier').Value;
//** Luego lo demás
Shopping.Refresh;
//** Y aquí es donde te estás equivocando:
Shopping.ExportOptions.FileType := AdobeAcrobatPDF;
//** Aquí decides si quieres que se abra Acroban o que se guarde como archivo: (toApplication, toFile, toEmailViaMapi... etc)
Shopping.ExportOptions.Destination := toApplication;
//** Si el anterior lo pusiste tofile, la siguiente línea dirá donde:
Shopping.ExportOptions.FileName :=
'\\Sitiserver\users\PaymentOrder\'+inttostr(Qry_ult.fieldbyname('id').value)+' '+Qry_BusSup.fieldbyname('supplier').Value+'.PDF';
//*** Y ahora sí: TIENES QUE USAR EXPORT:
Crpe_REPORTE.Refresh;
Crpe_REPORTE.Export;
|