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

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