Exportar reporte a pdf de crystal desde delhpi

[richy08]

buenas tardes compañeros alguien sabe las sentencias de codigo para exportar a pdf un reporte de crystal utilizo el siguiente codigo pero a la hora de querer abrir el reporte e lacrobat me dice que tiene un formato que n ocomprende o el archivo esta dañado gracias.

Código Delphi [-]
 Shopping.DiscardSavedData;
         Shopping.Refresh;
         Shopping.WindowState:=wsmaximized;
         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;
         Shopping.SaveAs('\\Sitiserver\users\PaymentOrder\'+inttostr(Qry_ult.fieldbyname('id').value)+' '+Qry_BusSup.fieldbyname('supplier').Value+'.PDF');
         Shopping.ExportOptions.FileType := CrystalReportRPT;

[GUILLERMOMEJIA]

//** 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;

[richy08]

Gracias gillermo probare el codigo aunque lo consegui preparando el componente en tiempo de diseño pero siempre es mucho mejor controlarlos por codigo mil gracias.