在vb中引用excel中报表打印功能的问题

Question

在vb中引用了excel报表打印时，我能否知道一张报表是否进行打印
比如很多用户只看了打印预缆，最后没有打印

Answer 1

先引用excel
Dim ExcelApp As Object '应用程序
Dim ExcelBook As Object '工作簿
Dim ExcelSheet As Object '工作表Set ExcelApp = CreateObject("Excel.Application")
Set ExcelBook = ExcelApp.Workbooks.Add
Set ExcelSheet = ExcelBook.Worksheets(1)
ExcelSheet.PrintPreview

Answer 2

处理excel对象的事件
在窗口声明时:
Private WithEvents mDoc As Excel.ApplicationPrivate Sub mDoc_WorkbookBeforePrint(ByVal Wb As Excel.Workbook, Cancel As Boolean)
    'mdoc对象在关闭之前,调用了这个过程就是打印了.如果没有就是没有打
End Sub