ActiveReports で PDF出力するには - 周回遅れのブルース

またまた ActiveReports 7.0J の備忘録ですぅ。

ActiveReports を使って PDF出力を行うには、まず参照設定に GrapeCity.ActiveReports.Export.Pdf.v7 を追加します。
次に ToolStripButton からコールされるイベントを用意します。

Private Sub OnPdfExport(sender As Object, e As EventArgs)
    Try
        Using _
            export = New PdfExport(),
            dialog = New SaveFileDialog() With {
                .Filter = "PDFファイル(*.pdf)|*.pdf",
                .FileName = Me.Text + ".pdf"
            }
            If (dialog.ShowDialog() = Windows.Forms.DialogResult.OK) Then
                Me.Cursor = Cursors.WaitCursor
                export.Export(Viewer.Document, dialog.FileName)
            End If
        End Using
    Finally
        Me.Cursor = Cursors.Default
    End Try
End Sub

最後はツールバーに PDF エクスポート用ボタンを追加して出来上がり。

_report.Run()
Me.Viewer.Document = _report.Document

' ツールバーにボタン追加
Dim newItem = New ToolStripButton("PDF出力")
Me.Viewer.Toolbar.ToolStrip.Items.Insert(3, newItem)     ' 印刷ボタンの横に配置
AddHandler newItem.Click, AddressOf OnPdfExport

あとそういえば製品ヘルプの以下ページの方法では、ツールバーにボタンを追加できませんでした。

Viewer クラス > Toolbar プロパティ
ms-help://GrapeCity.ActiveReports7/ActiveReports7/topic11242.html

このドキュメントの方法で実装しても「型 'GrapeCity.ActiveReports.Toolbar.Button' が定義されていません」等のエラーが出てビルドできません。アセンブリの中を探しても、残念ながら「Toolbar.Button」クラスは見つかりません。よってナレッジベースの以下のページを参考にさせていただきました。

Viewerコントロールのツールバーをカスタマイズする方法は？

以上、おそまつさまでした。<(_ _)>