Question

我在VB程序中使用Active Reports根据我的数据生成报告。现在我的报告打开正常，它允许用户打印，复制，查找等。我不确定如何添加功能，让用户选择在程序运行后导出图表。

我一直在寻找许多教程，但总有一些东西使它无法在我的程序中工作。例如this论坛提供了我想要的确切代码，因为他们将导出按钮添加到工具栏，然后将功能添加到按钮。不幸的是我无法访问工具栏。他们使用Me.Toolbar访问它，我无法以这种方式访问它。

另一个论坛here不会将导出添加到工具栏中，而是将其直接插入代码中，但我不确定要导入哪些内容以允许我这样做，因为我的项目没有认可ActiveReportsPDFExport.ARExportPDF。

更新：

找到一种导出为PDF的方法，方法是在设计格式中添加DataDynamics.ActiveReports.Export.Pdf.PdfExport的ActiveReport，然后从我的代码PdfExport1.Export(Me.Document, "D:\Kyra\HELP.pdf")中调用

问题：

在我的函数结束时调用它，打开活动报告。我希望用户能够选择导出报告，然后选择选择要将报告保存到的格式和位置。

Answer 1

下面是使用VB.NET和ActiveReports 6将PDF导出按钮添加到ActiveReports工具栏的代码：

Const pdfExportToolID As Long = 42

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim myExportTool As DataDynamics.ActiveReports.Toolbar.Button
    myExportTool = New DataDynamics.ActiveReports.Toolbar.Button()
    myExportTool.ButtonStyle = DataDynamics.ActiveReports.Toolbar.ButtonStyle.Text
    myExportTool.Caption = "Export to PDF"
    myExportTool.Id = pdfExportToolID
    Me.Viewer1.Toolbar.Tools.Add(myExportTool)

    ' load report:
    Dim rpt As New NewActiveReport1()
    Me.Viewer1.Document = rpt.Document
    rpt.Run(False)
End Sub

Private Sub Viewer1_ToolClick(ByVal sender As System.Object, ByVal e As DataDynamics.ActiveReports.Toolbar.ToolClickEventArgs) Handles Viewer1.ToolClick
    If (e.Tool.Id = pdfExportToolID) Then
        Dim pdf As New DataDynamics.ActiveReports.Export.Pdf.PdfExport()
        pdf.Export(Me.Viewer1.Document, "C:\users\scott\junk\myActiveReport.pdf")

    End If
End Sub

此代码在名为“Viewer1”的hte表单上带有ActiveReports Viewer的表单内部工作。

希望这有帮助，

Scott Willeke
GrapeCity

Answer 2

请按照说明here进行操作。具体来说，它是添加“cmdExport”的按钮，允许用户开始导出。

如何在使用ActiveReports时导出报告

2 个答案: