主题：[求助]调用excel预览界面后 怎样使该界面的“打印”按钮不可用呢？

Public Sub Workbook_BeforePrint(ByRef Cancel As Boolean)

    msgbox("不能打印")

    cancel = True

End Sub

Dim App As New MSExcel.Application

Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\test.xls")

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

App.Visible = True

addhandler Wb.BeforePrint, addressof Workbook_BeforePrint

'Ws.PrintPreview()

'App.Quit