请问viewer工具栏上的"导出"按钮怎么出来

yy · yy

'公共报表参数
Public objArRpt As New Object
Public sysArCnnString As String
Public sysArSqls As String

‘窗体ReportView,上面放一个Viewer1,加载窗体时根据公共报表参数装载报表
Private Sub ReportView_Load( ByVal sender As System.Object,  ByVal e As System.EventArgs) Handles MyBase.Load
   Dim cn As New System.Data.SqlClient.SqlConnection(sysArCnnString)
   Dim cmd As New System.Data.SqlClient.SqlCommand(sysArSqls)
   Dim rd As System.Data.SqlClient.SqlDataReader
   cmd.Connection=cn
   cn.Open()
   rd=cmd.ExecuteReader()
   objARrpt.DataSource=rd
   Viewer1.LoadDocument(objARrpt)
   Viewer1.Width=Me.Width -(Viewer1.Top*2)
   Viewer1.Height=Me.Height-(Viewer1.Left*2)
End Sub

‘增加一个Activereport 9区域报表(基于代码)
  "SaDepartment"

‘功能窗体上有打印按钮,打印时赋值公共参数,打开窗体ReportVi ew
Private Sub btnPrint_Click( ByVal sender As System.Object,  ByVal e As System.EventArgs) Handles btnPrint.Click
On Error Resume Next
Dim frmPrint As New ReportView
objARrpt =New SaDepartment
sysArCnnString="Data Source=" & DBSrv & ";Initial Catalog=" & DBPer & ";Integrated Security=False;User ID=" & DBUser & "

assword=" & DBPwd & ";"
sysArSqls="Select dt.DeptNo,dt.DeptName,dt.Persons,IsNull(empl.ServicePersons,0) As ServicePerson " _
         & "From Department As dt Left Join (Select DeptNo,Count(SerialNumber) As ServicePersons From Employee Group By DeptNo) As empl On dt.DeptNo=empl.DeptNo " _
         & "Order By dt.DeptNo"
frmPrint.MdiParent=Main
frmPrint.StartPosition=FormStartPosition.CenterParent
frmPrint.WindowState=FormWindowState.Maximized
frmPrint.Show()
End Sub

yy · yy

调出窗体预览出了报表,用户就按照Viewer工具栏提供的按钮操作报表了,可以选择打印按钮打印这个报表,现在的问题是,请问如何让用户转出这个报表到Excel或PDF?

frank.zhang · frank.zhang

您好，
导出excel的代码

' Provide the page report you want to render.
Dim report As New GrapeCity.ActiveReports.PageReport(New
System.IO.FileInfo("C:\Sample_PageReport.rdlx"))
Dim reportDocument As New GrapeCity.ActiveReports.Document.PageDocument(report)
' Create an output directory
Dim outputDirectory As New System.IO.DirectoryInfo("C:\MyExcel")
outputDirectory.Create()
' Provide settings for your rendering output.
Dim excelSetting As New
GrapeCity.ActiveReports.Export.Excel.Page.ExcelRenderingExtensionSettings()
excelSetting.FileFormat = GrapeCity.ActiveReports.Export.Excel.Page.FileFormat.Xls
Dim setting As GrapeCity.ActiveReports.Extensibility.Rendering.ISettings =
excelSetting
' Set the rendering extension and render the report.
Dim excelRenderingExtension As New
GrapeCity.ActiveReports.Export.Excel.Page.ExcelRenderingExtension()
Dim outputProvider As New
GrapeCity.ActiveReports.Rendering.IO.FileStreamProvider(outputDirectory,
System.IO.Path.GetFileNameWithoutExtension(outputDirectory.Name))
reportDocument.Render(excelRenderingExtension, outputProvider,
excelSetting.GetSettings())

复制代码

导出PDF的代码

' Provide the page report you want to render.
Dim report As New GrapeCity.ActiveReports.PageReport(New
System.IO.FileInfo("C:\Sample_PageReport.rdlx"))
Dim reportDocument As New GrapeCity.ActiveReports.Document.PageDocument(report)
' Create a output directory
Dim outputDirectory As New System.IO.DirectoryInfo("C:\MyPDF")
outputDirectory.Create()
' Provide settings for your rendering output.
Dim pdfSetting As New GrapeCity.ActiveReports.Export.Pdf.Page.Settings()
Dim setting As GrapeCity.ActiveReports.Extensibility.Rendering.ISettings = pdfsetting
' Set the rendering extension and render the report.
Dim pdfRenderingExtension As New
GrapeCity.ActiveReports.Export.Pdf.Page.PdfRenderingExtension()
Dim outputProvider As New
GrapeCity.ActiveReports.Rendering.IO.FileStreamProvider(outputDirectory,
System.IO.Path.GetFileNameWithoutExtension(outputDirectory.Name))
reportDocument.Render(pdfRenderingExtension, outputProvider, pdfSetting)

复制代码

参考文档
http://arhelp.grapecity.com/webhelp/AR9/index.html#Exporting.html

yy · yy

谢谢答复!我先试一试.
杂事太多,不能及时测试请教.请见谅!

frank.zhang · frank.zhang

您好,
您可以先尝试下,如果遇到问题,可以把程序上传至论坛.

yy · yy

yy · yy

请帮忙看看图片中错误的问题.
命名空间也没有Excel成员?我已按照其它贴子指点添加了Export.Excel.v9.dll程序集.

frank.zhang · frank.zhang

您好，
缺少的DLL详见图1。如果添加后没有生效，可以重启下VS。可以新建一个代码，测试是否添加成功。

yy · yy

谢谢!原来是没有引用export.excel,已经添加,成员出现了,我再试试导出.
VS也是刚上手学用,非常不熟悉,谢谢耐心指导.

frank.zhang · frank.zhang

您好，
为了避免问题之间的混淆，不同的问题可以在不同的帖子中回复。

为了给你提供更优质的服务，请对本次服务进行评分。我们会认真对待你提出的宝贵意见，谢谢

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

[已处理] 请问viewer工具栏上的"导出"按钮怎么出来

本帖子中包含更多资源

本帖子中包含更多资源

评分

活字格认证

元老葡萄

微信认证勋章