关于ActiveReports成生成PDF流时,在IE中流览时提示 109 出错
dapha 2003-10-23 03:02:30 关于ActiveReports成生成PDF流时,在IE中流览时提示 109 出错
现在问题是在另外两台电脑上安装组后,可以正常使用,而在我自己本机无法使用。
但把这个流输出为PDF,又可以正常打开。请问有谁遇到过此类问题啊。请帮帮忙喽。在此谢过~~~~~
VB中生成文件流的函数代码如下
Public Function MakeEray_Reports(ByVal reports As ActiveReport, ByVal sort As String) As Variant
'参数:reports,报表名称
'sort 以做扩展使用
'Dim rdfExport As ActiveReportsRTFExport.ARExportRTF '声明RDF对象
Dim pdfExport As ActiveReportsPDFExport.ARExportPDF'声明PDF对象
Dim vByteArray As Variant
Set pdfExport = New ActiveReportsPDFExport.ARExportPDF '建立PDF对象
pdfExport.AcrobatVersion = 2 'pdf4.0版
pdfExport.SemiDelimitedNeverEmbedFonts = ""
'pdfExport.FileName=""'要生成的PDF的Path+Filename
'pdfExport.Export BranchRpt.Pages生成pdf文件
'BranchRpt.Pages.Save FileName =rdfExport.export'生成RDF文件
Call pdfExport.ExportStream(reports.Pages, MakeEray_Reports) '生成PDF流
Set pdfExport = Nothing
Exit Function
pdfexporterr: '出错了。
MakeEray_Reports = ""
Set pdfExport = Nothing
End Function
ASP代码
Dim erayreports
Set erayreports =Server.CreateObject("eray_tess.RptPart")
'这是用VB写的组件
Response.clear
ByteArray = erayreports.Make_Reports("pdf")
Response.ContentType = "application/PDF"
Response.BinaryWrite ByteArray
Set erayreports=Nothing