关于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 FunctionASP代码
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
但把这个流输出为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 FunctionASP代码
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
解决方案 »
- 如何写个程序 获得一个网址跳转后的地址?
- 如何修改WMV文件的版权信息!
- VB里如何允许用户选择一个DBF文件,并能够浏览这个DBF数据库
- 如何建立这个ACCESS数据库
- 急!!!请高手帮帮忙!关于datareport的统计每页金额的问题!!!
- 哪里有免费的驱动软件编程工具下载(Numega DriverStudio 2.6.0)
- 关于进、销、存中的一个小问题!!!!!++++100分!!在线等!!!
- 超强VB界面控件ThemeControl,与大家一起分享。
- 一个FORM中有多个TEXTBOX、LIST等,有什么简单的方法知道哪些数据有改变?
- 我在picturebox中用line方法画了一条曲线,我想把曲线保留下来,请问用什么方法
- 再问一个小问题,如时间10:00:00存入数据库,要以什么形式存入。我以smalldatetime这种形式存入数据库,在SQL中表的数据是1900-1-1 10
- sql server怎么存取dwg(autocad)文件?
問題現在我已經解決,反正能夠正常使用,造成以上的問題我自己我還不明白到底是怎麽回事,真是郁闷啊。下周回公司,把代码贴出供大家以后参考使用。