ERRO NA HORA DE EXPORTAR NO CRYSTAL 8.5

USUARIO.EXCLUIDOS 14/03/2005 11:50:44
#72915

Pessoal sera que podem me ajudar, fiz um relatorio que é exportado para e-mail usando PDF só que na minha maquina funciona e nas maquinas clientes nao funciona fiz o codigo desta maneira:

Dim rcsAdo As ADODB.Recordset
Dim appl As New CRAXDRT.Application
Dim rep As CRAXDRT.Report
On Error GoTo Erro
Set rcsAdo = New ADODB.Recordset
rcsAdo.Open "select * from scq_ImpPedCompra WHERE codigo = " & Val(txtCod_Req.Text), db, adOpenStatic, adLockOptimistic
Set rep = appl.OpenReport(App.Path & "\REL\email.rpt", 1)
rep.Database.SetDataSource rcsAdo, 3, 1
rep.Database.Verify
xEmail = "Informatica@cooperfertil.com.br"
rep.ExportOptions.DiskFileName = "c:\pdf_report.pdf"
rep.ExportOptions.DestinationType = crEDTEMailMAPI
rep.ExportOptions.MailToList = xEmail
rep.ExportOptions.MailSubject = "Confirmação de Compra - COOPERFéRTIL"
rep.ExportOptions.FormatType = crEFTPortableDocFormat
rep.Export False

mas nos clientes dá o seguinte erro "Failed to export the report"

agradeço des de ja.

valeu galera.