EXPORTAR CRYSTAL PDF O FONTE INTERLEAVED 2 OF 5[Ô]

LDBONA 27/09/2011 03:56:26
#385321

Estou tendo dificuldades quando gero boleto bancario, pelo crystal report, quando exporto para pdf, o codigo de barra aparece destorcido, mas quando eu mando para uma impressora virutal ou direto a impressora ele sai normal, Alguem tem uma ideia porque acontece isso uso o cristal report 8.5
o codigo é esse

[ô] 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