主题：excel 报表打印

Dim Book As New XLS.Book ("E:\Attachments\aaa.xlsx")

        Dim Sheet As XLS.Sheet = Book.Sheets(0)

        sheet（1,1).value = "1"

        Book.Save("c:\reports\test.xlsx") '保存工作簿

Dim App As New MSExcel.Application

Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("c:\reports\test.xlsx")

Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)

Wb.Saved = True
App.DisplayAlerts = False '加上此行可禁止弹出合并前的提示

Ws.PrintOut

App.Quit