Luiz de bona

Tambem estou nessa procura, gero pelo crystal report boleto bancario para enviar por e-mail, e cada boleto um arquivo, ai que vem o problema o crystal faz diretinho, so que na hora de exportar não aparece o codigo de barra , na impressora virtual funcona perfeito, so que tenho que direcionar o nome o arquivo, imagina se tiver 500 cliente , o usuario tenha que fazer issso? você descobriu uma solução para isso? se tiver me passe.

Estou fazendo uma aplicação gerar boleto bancario a cada boleto bancario gerar um arquivo para depois enviar em anexo para o cliente o seu boleto, tentei fazer isso no crystal report pelo comando exportar,funcionou certinho, so que não sai o codigo de barra, mas quando mando para impressora virutal sai certo, então a solução é gerar em arquivo atraves da impressora virtual mas quero fazer isso atravez de codigo, onde eu mando o comando, para salvar da forma que eu quero e onde determino, tentei fazer plo pdfcreator, pelo exemplo que tem la, estou me batendo, alguém tem alguma solução para isso, ou já conseguiu fazer. Tem algum exemplo. Luiz de bona Analista de sistema [email protected]

Paulo use 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 ________________ Luiz de Bona Analista de sistema [email protected]

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

Tambem estou com o mesmo problema, não aparece não aparece a codigo de barra nos boleto bancario, você conseguiu alguma coisa o meu codigo fonte é 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 Tambem estou com o mesmo problema, não aparece não aparece a codigo de barra nos boleto bancario, você conseguiu alguma coisa o meu codigo fonte é 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

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

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 Pergunta? alguém tem uma solução pare resolver esse problema

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