ActiveReport 打印在Excel上

Lenka.Guo · Lenka.Guo

不同的报表模板有不同的创建方法，您使用的是ActiveReports哪个版本？

Dim rpt As New ReportName()

具体创建方法可参考文档：http://www.gcpowertools.com.cn/d ... #!Documents/_36.htm

情难舍 · 情难舍

回复 11楼Lenka.Guo的帖子

ActiveReport 7版本我需要创建的是ActiveReport中的基于代码的报表，后缀名是.vb。 “Dim xtr As New System.Xml.XmlTextReader(Application.StartupPath +"\report.rpx")”这段代码只能读取基于XML的报表。
如果我要读取基于代码的报表应该怎样实现呢非常感谢

情难舍 · 情难舍

回复 11楼Lenka.Guo的帖子

Dim sectionReport As New SectionReport1()

      Dim xlsExport1 As New GrapeCity.ActiveReports.Export.Excel.Section.XlsExport()
      xlsExport1.FileFormat = GrapeCity.ActiveReports.Export.Excel.Section.FileFormat.Xlsx
      xlsExport1.Export(sectionReport.Document, Application.StartupPath + "\\xxx.xlsx")

数组越界错误

Lenka.Guo · Lenka.Guo

代码修改为：
Dim sectionReport As New SectionReport1()
sectionReport.Run();
      Dim xlsExport1 As New GrapeCity.ActiveReports.Export.Excel.Section.XlsExport()
      xlsExport1.FileFormat = GrapeCity.ActiveReports.Export.Excel.Section.FileFormat.Xlsx
      xlsExport1.Export(sectionReport.Document, Application.StartupPath + "\\xxx.xlsx")

如果仍然报错，您可以在开始菜单，找到GrapeCity ->本机示例程序—&gt

rofessional 文件夹下打开EndUserDesigner 示例程序，运行之后，使用EndUserDesigner, 打开您所设计的报表，选择预览，看看是否能正常导出。

情难舍 · 情难舍

回复 14楼Lenka.Guo的帖子

非常感谢，这种东西没有接触过真的没得一点办法。。。OK 解决了。。。谢谢

Lenka.Guo · Lenka.Guo

回复 15楼情难舍的帖子

不客气~~欢迎您随时提问~~~

		自动登录	找回密码
密码			立即注册

[已处理] ActiveReport 打印在Excel上

活字格认证

讲师达人

悬赏达人

微信认证勋章

元老葡萄