主题：表单打印每张的某一列进行小计

方法一：写代码

http://www.foxtable.com/help/topics/2408.htm

方法二：导出excel报表后，直接用代码打印excel

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)

Wb.Saved = True
App.DisplayAlerts = False '加上此行可禁止弹出合并前的提示
app.Visible = True
Ws.PrintPreview '预览
'ws.printout '打印
app.quit

你把MS Office设置成默认打开程序

http://jingyan.baidu.com/article/c45ad29cf71476051753e219.html

这句代码不用写。

app.Visible = True

同时，你的电脑上，要有打印机，而且要设置默认打印机吧？