方法一:写代码
http://www.foxtable.com/help/topics/2408.htm
方法二:导出excel报表后,直接用代码打印excel
Dim App As New MSExcel.ApplicationDim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\test.xls")Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Wb.Saved = TrueApp.DisplayAlerts = False '加上此行可禁止弹出合并前的提示app.Visible = TrueWs.PrintPreview '预览'ws.printout '打印app.quit