ActiveReports　印刷の終了を取得する

プレビューのフォームのLoad時にイベントを関連付ける。

Private Sub fmReportViewer_Load(sender As Object, e As EventArgs) Handles Me.Load
　　AddHandler rpt.Document.Printer.EndPrint, AddressOf onEndPrint

    rpt.Run(False)
    Me.Viewer1.Document = rpt.Document

End Sub

Private Sub onEndPrint(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintEventArgs)
　　MessageBox.Show("印刷完了")
End Sub