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

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

 

分页汇总

 

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

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

方法一：写代码

 

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

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

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

 

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

 

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时则不报错。

这句代码不用写。

 

app.Visible = True

 

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