以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  表单打印每张的某一列进行小计  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=77416)
--  作者：xzc1221
--  发布时间：2015/11/18 8:53:00
--  表单打印每张的某一列进行小计

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

 

[此贴子已经被作者于2015/11/18 9:09:42编辑过]
--  作者：Hyphen
--  发布时间：2015/11/18 8:57:00
--  

分页汇总

 

http://www.foxtable.com/help/topics/1412.htm
--  作者：xzc1221
--  发布时间：2015/11/19 15:21:00
--  
不太方便,能否不转换成excel文件而直接打印出来
--  作者：大红袍
--  发布时间：2015/11/19 15:41:00
--  

方法一：写代码

 

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
--  作者：xzc1221
--  发布时间：2015/11/23 11:26:00
--  
方法二可以解决问题，不过，当电脑上装有两种表格软件（wps表格）后，执行该方法后，excel报表为excel软件打开，打印预览为wps表格软件打开。能否在不卸载wps表格软件情况下用excel软件打印预览 。
--  作者：大红袍
--  发布时间：2015/11/23 11:29:00
--  

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

 

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

 
--  作者：xzc1221
--  发布时间：2015/11/23 13:41:00
--  

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时则不报错。
[此贴子已经被作者于2015/11/23 13:45:30编辑过]
--  作者：大红袍
--  发布时间：2015/11/23 14:24:00
--  

这句代码不用写。

 

app.Visible = True

 

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