Luiz de bona Postado Setembro 26, 2011 Denunciar Share Postado Setembro 26, 2011 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 Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
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
Link para o comentário
Compartilhar em outros sites
0 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.