增加打印的按钮,希望对你有用    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim oExportOpt As New ExportOptions()                     '輸出選択
        Dim oDiskOpt As New DiskFileDestinationOptions()          'デイスクファイル宛先の選択
        Dim oExcelFormatOpt As New ExcelFormatOptions()           'エクセルフォーマット選択
        Dim sFileName As String                                   'ファイル名        Dim sSelect As String
        sSelect = "{T61IAC15.C0000020} ={T61IAC10.C0000020}"
        m_oReportDoc.RecordSelectionFormula = sSelect
        m_oReportDoc.Refresh()
        oExportOpt = m_oReportDoc.ExportOptions        oExcelFormatOpt.ExcelTabHasColumnHeadings = False        'Excel書式の設定
        oExportOpt.ExportFormatType = ExportFormatType.Excel
        oExportOpt.FormatOptions = oExcelFormatOpt        'ファイル輸出のタイプ
        oExportOpt.ExportDestinationType = ExportDestinationType.DiskFile        'ファイル名前の設定
        'sFileName = "c:\\inetpub\\wwwroot\\export.xls"
        sFileName = m_sPath.Substring(0, 2) + "\export.xls"
        oDiskOpt.DiskFileName = sFileName
        oExportOpt.DestinationOptions = oDiskOpt
        '帳票の輸出
        m_oReportDoc.Export()
        'Excelファイルを開く
        'HttpContext.Current.Response.Redirect("http://172.28.96.20/export.xls")
        HttpContext.Current.Response.Redirect(sFileName.Replace("\", "/"))
    End Sub