主题：EXCEL模板打印后窗口无法关闭

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("c:\aaa.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
With Ws.PageSetup
    .LeftMargin = 2
    .RightMargin = 2
    .TopMargin = 1
    .BottomMargin = 1
    .CenterHorizontally = True
    .CenterVertically = True
    .Zoom = False
    .FitToPagesTall = 1
End With
wb.saved = True
app.DisplayAlerts = False
Ws.PrintOut (Copies:= 3)  
Wb.Close
App.Quit