Wie exportieren Sie einen Bericht, während Activereport mit

Question

Ich bin mit Active Report in meinem VB-Programm einen Bericht zu erstellen, basierend auf meinen Daten. Im Moment habe ich den Bericht Öffnung in Ordnung und es ermöglicht dem Benutzer, zu drucken, zu kopieren, finden, etc. Ich bin nicht sicher, wie die Funktionalität hinzuzufügen, der Benutzer wählen zu lassen, um das Diagramm zu exportieren, sobald das Programm läuft.

Ich habe schon in vielen Tutorials gesucht, aber es gibt immer etwas, das es nicht in der Lage zu arbeiten in meinem Programm macht. Zum Beispiel dieses Forum gibt den genauen Code für das, was ich will, wie sie ein hinzufügen Export-Taste auf der Symbolleiste und dann fügt die Funktionalität der Schaltfläche. Leider bin ich nicht in der Lage die Symbolleiste zugreifen. Sie greifen mit Me.Toolbar und ich bin nicht in der Lage es auf diese Weise zugreifen zu können.

Ein weiteres Forum hier nicht nicht den Export in die Symbolleiste hinzufügen und stattdessen fügt sie direkt in den Code, aber ich bin nicht sicher, was damit importieren sie es mich so wie mein Projekt zu tun, nicht ActiveReportsPDFExport.ARExportPDF erkennen.

UPDATE:

einen Weg, um den Export zu PDF Gefunden im Design-Format ein DataDynamics.ActiveReports.Export.Pdf.PdfExport zum ActiveReport Hinzufügen und dann von meinem Code Aufruf PdfExport1.Export(Me.Document, "D:\Kyra\HELP.pdf")

Problem:

1. Dies ist am Ende meiner Funktion aufgerufen, die den aktiven Bericht öffnet. Ich möchte, dass die Benutzer in der Lage sein zu entscheiden, den Bericht zu exportieren und dann bei der Wahl des Formats und der Ort die Möglichkeit gegeben werden, wo sie den Bericht speichern möchten.

Answer 1

Im Folgenden finden Sie den Code ein PDF-Export-Taste, um die Active Toolbar mit VB.NET und Activereports 6 hinzuzufügen:

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

Dieser Code funktioniert innerhalb eines Formulars mit einem Activereports-Viewer auf hte Formular mit dem Namen „Viewer1“.

Hope, das hilft,

Scott Willeke
GrapeCity

Answer 2

Folgen Sie einfach in den Anweisungen an hier . Genauer gesagt, es ist die Taste sie ‚cmdExport‘ hinzufügen, dass der Benutzer den Export starten kann.

Answer 3

Dieser Code funktioniert für mich, nur geben sie Webviewers Objekt.

ABC.Run();
ARWebViewer.Report = ABC; 

ExportToExcel(ARWebViewer); // call ExportToExcel method, 

public void ExportToExcel(DataDynamics.ActiveReports.Web.WebViewer objWebviewer)

    {
        DataDynamics.ActiveReports.Export.Xls.XlsExport XLSexport = new DataDynamics.ActiveReports.Export.Xls.XlsExport();

        System.IO.MemoryStream memStream = new System.IO.MemoryStream();
        if (XLSexport == null)
            XLSexport = new DataDynamics.ActiveReports.Export.Xls.XlsExport();

        XLSexport.AutoRowHeight = true;
        XLSexport.MinColumnWidth = (float)0.2;
        XLSexport.RemoveVerticalSpace = true;
        XLSexport.UseCellMerging = true;

        XLSexport.Export(objWebviewer.Report.Document, memStream);
        memStream.Position = 0;
        Response.ContentType = "application/Xls";
        Response.AddHeader("content-disposition", "attachment; filename=" + ajDoc + ".Xls");

        Response.BinaryWrite(memStream.ToArray());
        Response.End();
        XLSexport = null;
    }