当我尝试将水晶报告 8.5 导出为 VB6 中的 PDF 时，我收到错误"File Not Found"

Question

Dim crp As New CRAXDRT.Application
Dim rep As CRAXDRT.Report
Set rep = crp.OpenReport(GlbRepPath + "indent_rep.RPT")
rep.ExportOptions.Reset
rep.EnableParameterPrompting = False
rep.DiscardSavedData
rep.ExportOptions.PDFExportAllPages = True
rep.RecordSelectionFormula = "{I_IndentheadT.IND_NO}='" + txtIndentNo.Text + "'"
vFileName = Left(txtIndentNo.Text, 3) + Right(txtIndentNo.Text, 6) + ".pdf"
rep.ExportOptions.DiskFileName = "d:indent.pdf" 'App.Path & "" & vFileName
rep.ExportOptions.DestinationType = crEDTDiskFile
rep.ExportOptions.FormatType = crEFTPortableDocFormat
rep.DisplayProgressDialog = False
rep.Export False 

我的代码用于将水晶报告从VB6转换为pdf。最后一行给出了错误"；找不到文件">

Answer 1

丢失的文件可能是CR用于PDF导出的一些文件。检查这些文件是否存在：

C:Program Files (x86)Common FilesCrystal Decisions2.0bincrtslv.dll
C:Program Files (x86)Common FilesCrystal Decisions2.0binExportModeller.dll
C:WINDOWSCrystalcrxf_pdf.dll