Crystal reports 如何在Crystal Report中导出为PDF文件?
使用vb6和crystalreport8.5 在客户端系统中生成报告时,我单击了报告中的导出为PDF按钮;它显示导出,导出选项。选择导出文件未显示在客户端系统中 但在我的系统中,它显示了它显示的导出,导出选项。选择导出文件。但在客户端系统中并没有显示“选择导出文件”屏幕 我无法以pdf格式保存报告文件。因为它没有要求保存文件名 有人能帮忙解决这个问题吗?试试看Crystal reports 如何在Crystal Report中导出为PDF文件?,crystal-reports,Crystal Reports,使用vb6和crystalreport8.5 在客户端系统中生成报告时,我单击了报告中的导出为PDF按钮;它显示导出,导出选项。选择导出文件未显示在客户端系统中 但在我的系统中,它显示了它显示的导出,导出选项。选择导出文件。但在客户端系统中并没有显示“选择导出文件”屏幕 我无法以pdf格式保存报告文件。因为它没有要求保存文件名 有人能帮忙解决这个问题吗?试试看 Private Sub ExportReportToPDF(ReportObject As CRAXDRT.Report, Byval
Private Sub ExportReportToPDF(ReportObject As CRAXDRT.Report, Byval FileName As String, Byval ReportTitle As String)
Dim objExportOptions As CRAXDRT.ExportOptions
ReportObject.ReportTitle = ReportTitle
With ReportObject
.EnableParameterPrompting = False
.MorePrintEngineErrorMessages = True
End With
Set objExportOptions = ReportObject.ExportOptions
With objExportOptions
.DestinationType = crEDTDiskFile
.DiskFileName = FileName
.FormatType = crEFTPortableDocFormat
.PDFExportAllPages = True
End With
ReportObject.Export False
End Sub
Private Sub Command1_Click()
Dim objCrystal As CRAXDRT.Application
Dim objReport As CRAXDRT.Report
Set objCrystal = New CRAXDRT.Application
Set objReport = objCrystal.OpenReport(ReportFileName, 1)
ExportReportToPDF objReport, "c:\foo\foo.pdf", "foo"
End Sub
这听起来像是Crystal文件的部署问题。检查用户机器上是否有名为u2ddisk.dll的文件-Crystal 8.5需要此文件才能提供导出到文件的选项。否则,它将选择导出到应用程序选项。导出格式和导出目标下拉列表中项目的可用性取决于当前的DLL,听起来您缺少从目标下拉列表导出到磁盘的功能。1)Setup crystal report。。 2) 复制crxf\u pdf.dll从c:\windows\crystal复制到c:\windows\system32文件夹中…
3) 然后问题解决了。在我的情况下,在Windows 8.1 x64上,解决方案是:
仅此而已。在我的系统中,是否要求保存文件名,但在客户端系统中,是否要求保存文件名?@adatapost-Export PDF已在Crystal Report 8.5中内置函数,为什么我必须编写导出为PDF的代码。在我的系统中,正在使用要保存的文件名。但在客户端系统中,会显示“导出PDF”屏幕,但不会要求保存文件名。@Gopal-我们每天在客户端系统上导出为PDF。我们会提示用户输入文件名,并如上所述在导出选项中设置文件名。它应该可以工作。当我试图将报告保存到文件时,这对我来说是有效的。我试图在RTF中保存,但没有成功。这就解决了问题。