增加打印的按钮,希望对你有用 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
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
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货