Luiz de bona Posted September 26, 2011 Report Share Posted September 26, 2011 (edited) 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 SubPergunta? alguém tem uma solução pare resolver esse problema Edited September 28, 2011 by Luiz de bona Quote Link to comment Share on other sites More sharing options...
Question
Luiz de bona
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
Edited by Luiz de bonaLink to comment
Share on other sites
0 answers to this question
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.