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

一份表单打印时会分成几张，能否在打印时对每张的某一列进行小计

 

不太方便,能否不转换成excel文件而直接打印出来

方法二可以解决问题，不过，当电脑上装有两种表格软件（wps表格）后，执行该方法后，excel报表为excel软件打开，打印预览为wps表格软件打开。能否在不卸载wps表格软件情况下用excel软件打印预览 。

Dim Book As New XLS.Book(ProjectPath & "Attachments\出库单.xls")
Dim fl As String = ProjectPath & "Reports\模板生成文件名22.xls"
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Wb.Saved = True
App.DisplayAlerts = False '加上此行可禁止弹出合并前的提示
app.Visible = True
ws.printout '打印
app.quit

在只安装excel的电脑上，上面的代码在关闭打印窗口时报错，未装打印机。同时安装wps时则不报错。