Question

使用VB 6和Crystal Report 8.5

在客户端系统生成报告时，我点击了报告中的导出到PDF按钮;它显示出口，出口选项。选择导出文件未显示在客户端系统中。

但在我的系统中，显示它显示出口，导出选项。选择导出文件。但是在客户端系统中没有显示选择导出文件屏幕。

我无法以pdf格式保存报告文件。因为它没有要求保存文件名。

任何人都可以帮助解决这个问题吗？

Answer 1

尝试，

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

Answer 2

1）设置水晶报告.. 2）将crxf_pdf.dll副本从c：\ windows \ crystal复制到c：\ windows \ system32文件夹里面...... 3）然后问题解决了..

Answer 3

就我而言，在Windows 8.1 x64上，解决方案是：

在开发计算机上找到文件夹％programfiles％\ Seagate 软件\共享
从中复制crtslv.dll和ExportModeller.dll dev机器到C：\ windows \ SysWOW64 \文件夹
使用管理员权限打开命令提示符
使用regsrv32
重试pdf导出...

就是这样。

Answer 4

这听起来像是Crystal文件的部署问题。检查用户的计算机上是否有名为u2ddisk.dll的文件 - Crystal 8.5需要此文件才能提供导出到文件的选项。否则，它将选择“导出到应用程序”选项。 “导出格式”和“导出目标”下拉列表中项目的可用性取决于存在的dll，听起来您从“目标”下拉列表中缺少“导出到磁盘”。

如何在Crystal Report中导出为PDF文件？

4 个答案: