急，求救，在线等

[letone]

关于水晶报表导出pdf的问题

dim rpt As New ReportDocument
Dim DiskOps As New CrystalDecisions.Shared.DiskFileDestinationOptions
Dim exportOpts As New ExportOptions
DiskOps.DiskFileName = filepath & "\palletlabel.pdf"
exportOpts = rpt.ExportOptions。。。。。。。。。这里出错.Invalid report file path.
exportOpts.ExportDestinationType = CrystalDecisions.Shared.ExportDestinationType.DiskFile
exportOpts.ExportFormatType = ExportFormatType.PortableDocFormat
rpt.ExportOptions.DestinationOptions = DiskOps
rpt.Export()
rpt.Close()
Return True


?rpt.ExportOptions
<error: an exception of type: {CrystalDecisions.CrystalReports.Engine.LoadSaveReportException} occurred>
但是已经添加了CrystalDecisions.CrystalReports.Engine

[bote_china]

少了一句rpt.Load(reportname)

[letone]

加了load后出现登录失败，解决好后在结贴！，
谢谢Bote_China() ！