Luiz de bona
Membros-
Total de itens
9 -
Registro em
-
Última visita
Sobre Luiz de bona
- Data de Nascimento 21/06/1963
Contatos
-
MSN
ldbona@hotmail.com
-
Website URL
http://
-
ICQ
0
Perfil
-
Gender
Male
-
Interests
Trocar exeperiencia, aprender,
Últimos Visitantes
1.334 visualizações
Luiz de bona's Achievements
0
Reputação
-
Gerar arquivo em pdf na impressora virtual via codigo vb
pergunta respondeu ao Luiz de bona de Luiz de bona em Crystal Reports
-
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.
-
Gerar arquivo em pdf na impressora virtual via codigo vb
uma questão postou Luiz de bona Crystal Reports
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 ldbona@ldbona.com.br -
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 ldbona@ldbona.com.br
-
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
-
Erro ao exportar para PDF pelo Crystal Reports
pergunta respondeu ao Fabricio Viana de Luiz de bona em Crystal Reports
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