Erro ao exportar para PDF pelo Crystal Reports

[Fabricio Viana]

Pessoal, bom dia.

Sou novo aqui no fórum e gostaria muito da ajuda de vocês referente esse erro, estou tendo problema na hora de exportar a danfe para PDF pelo Crystal Reports

em tempo de execução, quando cria o arquivo o código de barra diminui o tamanho e o leitor não consegue ler, estou a semanas tentando resolver e nada obrigado a todos.

[Luiz de bona]

Pessoal, bom dia.

Sou novo aqui no fórum e gostaria muito da ajuda de vocês referente esse erro, estou tendo problema na hora de exportar a danfe para PDF pelo Crystal Reports

em tempo de execução, quando cria o arquivo o código de barra diminui o tamanho e o leitor não consegue ler, estou a semanas tentando resolver e nada obrigado a todos.

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

funcio