如何在水晶报表中导出为PDF文件？

Question

使用VB6和Crystal Report 8.5

在客户端系统生成报表时，点击报表中的导出为PDF按钮，显示导出、导出选项。选择Export file is not displaying in the client system。

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

我无法将报告文件保存为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

在我的例子中，在Windows8.1 x64上，解决方案是：

在开发机器上，找到文件夹%programfiles%\Seagate Software\Shared

• copy crtslv.dll ExportModeller.dll，从开发机器到C:\windows\SysWOW64\ folder

1. 使用管理员的privileges
2. register regsrv32打开命令提示符crtslv.dll和ExportModeller.dll regsrv32
   1. 重试pdf导出...

就这样。

Answer 3

1)设置水晶报表..2)将crxf_pdf.dll拷贝从c:\windows\crystal复制到…内的c:\windows\system32文件夹3)然后问题就解决了。