急，求救，在线等
关于水晶报表导出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

[解决办法]
少了一句rpt.Load(reportname)