Erro ao exportar para PDF

[Tiago_BB]

Ola pessoal.

Estou com um problema.

Tenho um relatório de receitas, que uma imagem( tal imagem esta no c:\....).

O que acontece? Quando eu não ecporto o relatório, ele exibe os dados porém a imagem não aparece, no lugar dela aparece um quadrado com um x no canto superior esquerdo.

Caso eu exporto para pdf, aparece o seguinte erro :

Error by export to PDF

Alguém pode me ajudar???

Agradeço desde já!!!

Atenciosamente,

Tiago

[Luiz de bona]

Tente esse codigo

Gera_Email PDF

Dim crxApp As New CRAXDRT.Application

Dim Report As CRAXDRT.Report

Dim crxExport As CRAXDRT.ExportOptions

Set Report = crxApp.OpenReport(Diretorio & "\399Hsbce.rpt", 1)

Set crxExport = Report.ExportOptions

crxExport.FormatType = crEFTPortableDocFormat

crxExport.DestinationType = crEDTDiskFile

Report.SQLQueryString = "{Boleto_Temp.codigo_usuario} = " & Val(lp_cod_usuario) & " and {Boleto_Temp.Emitir} = true "

crxExport.DiskFileName = Diretorio & "\contador.pdf"

Report.Export False

Set crxExport = Nothing

Set Report = Nothing

Cmd_FecharI.SetFocus

Exit Sub