ActiveReportsの使用中にレポートをエクスポートするにはどうすればよいですか
-
26-09-2019 - |
質問
VB プログラム内で Active Reports を使用して、データに基づいてレポートを生成しています。現在、レポートは正常に開くことができ、ユーザーは印刷、コピー、検索などを行うことができます。プログラムの実行後にユーザーがグラフのエクスポートを選択できるようにする機能を追加する方法がわかりません。
多くのチュートリアルを見てきましたが、私のプログラムでは動作できない原因が常にあります。例えば これ フォーラムは、ツールバーにエクスポートボタンを追加し、ボタンに機能を追加するため、私が望む正確なコードを提供します。残念ながらツールバーにアクセスできません。彼らはそれにアクセスします Me.Toolbar
そしてこの方法ではアクセスできません。
別のフォーラム ここ エクスポートをツールバーに追加せず、代わりにコードに直接挿入しますが、プロジェクトが認識しないため、この方法で実行できるようにするには何をインポートすればよいかわかりません ActiveReportsPDFExport.ARExportPDF
.
アップデート:
ActiveReportにデザイン形式で追加してPDFにエクスポートする方法を見つけました。 DataDynamics.ActiveReports.Export.Pdf.PdfExport
そして私のコードから呼び出します PdfExport1.Export(Me.Document, "D:\Kyra\HELP.pdf")
問題:
- これは、アクティブなレポートを開く関数の最後に呼び出されます。ユーザーがレポートのエクスポートを選択できるようにしてから、レポートの保存先の形式と場所を選択できるようにしたいと考えています。
解決
以下は、VB.NETとあるActiveReports 6を使用してあるActiveReportsツールバーにPDFのエクスポート]ボタンを追加するためのコードがあります:
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ビューアでフォームの内部で動作します。
ホープ、このことができます、
Scott Willeke
GrapeCity
他のヒント
私のために働いこのコードは、単にオブジェクトウェブビューアに渡します。
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;
}