Gerar pdf no crystal report vb6

[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