使用VB 6和Crystal Report 8.5如何導出到Crystal Report中的PDF文件?
在生成報告的客戶端系統中,我在報告中單擊了導出到PDF按鈕;它顯示出口,出口選項。選擇導出文件不顯示在客戶端系統中。
但在我的系統,它顯示它顯示導出,導出選項。選擇導出文件。但在客戶端系統中未顯示選擇導出文件屏幕。
我能不能保存報告文件中的PDF文件。因爲它沒有要求保存文件名。
任何一個可以幫助解決這個問題?
使用VB 6和Crystal Report 8.5如何導出到Crystal Report中的PDF文件?
在生成報告的客戶端系統中,我在報告中單擊了導出到PDF按鈕;它顯示出口,出口選項。選擇導出文件不顯示在客戶端系統中。
但在我的系統,它顯示它顯示導出,導出選項。選擇導出文件。但在客戶端系統中未顯示選擇導出文件屏幕。
我能不能保存報告文件中的PDF文件。因爲它沒有要求保存文件名。
任何一個可以幫助解決這個問題?
嘗試,
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
這聽起來像水晶文件的部署問題。檢查用戶在他們的機器上有一個名爲u2ddisk.dll的文件 - Crystal 8.5需要該文件才能導出到文件。否則,它會選擇「導出到應用程序」選項。 「導出格式」和「導出目標」下拉列表中項目的可用性取決於當前存在的dll,聽起來您缺少「目標」下拉列表中的「導出到磁盤」。
1)安裝水晶報表.. 2)複製crxf_pdf.dll從C複製:\ WINDOWS \水晶C:\ WINDOWS \ SYSTEM32裏面夾... 3)然後問題就解決了..
在我情況下,在Windows 8.1 x64上,該解決方案是:
副本crtslv.dll和ExportModeller.dll從 dev機器到th ËC:\ WINDOWS \ Syswow64資料\文件夾
打開一個命令提示符具有管理員的權限
就是這樣。
在我的系統,是問一個文件名保存,但在客戶端系統是不是要求一個文件名保存? – Gopal 2009-08-31 09:22:22
@adatapost - 在Crystal Report 8.5中已經內置導出PDF功能,爲什麼我需要編寫導出爲PDF的代碼。在我的系統中正在創建一個文件名來保存。但在客戶端系統導出PDF屏幕正在顯示,但它不要求文件名保存。 – Gopal 2009-08-31 09:49:57
@Gopal - 我們每天在客戶端系統上導出爲PDF格式。我們提示我們的用戶輸入文件名,並在上面的導出選項中設置文件名。它應該只是工作。 – 2009-09-05 01:38:17