VB调用Excel打印

vb调用 excel进行打印

 Dim xobject As Excel.Application
 Dim xBook As Excel.Workbook
 Dim xSheet As Excel.Worksheet
 Set xobject = CreateObject("excel.application")
 Set xBook = xobject.Workbooks.Open(App.Path & "/表格打印.xls")       '调用名为表格打印的excel表
 Set  xSheet = xobject.Worksheets("表格打印")                                          '活动区名称为表格打印
 xSheet.Activate                                                                                                 ' 设置为活动区

xSheet.Cells(m n) = "abcdefg"                                                                        '设置m行n列的值

 xobject.ActiveWindow.SelectedSheets.PrintOut
  xobject.Visible = False
   xobject.DisplayAlerts = False
   xobject.Quit
   xobject.DisplayAlerts = True
   Set xobject = Nothing