[求助]execl报表打印如何设置打印份数 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]execl报表打印如何设置打印份数

共有1438人关注过本帖树形打印复制链接主题：[求助]execl报表打印如何设置打印份数

huwenguang2008

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：141 积分：1131 威望：0 精华：0 注册：2014/3/25 13:14:00

[求助]execl报表打印如何设置打印份数 发帖心情

Post By：2017/10/9 8:42:00 [只看该作者]

如题，单张多份打印如何设置啊

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/10/9 8:47:00 [只看该作者]

PrintOut

直接打印。如，Ws.PrintOut

该方法还可通过设置有关参数来控制打印，如下面的代码就是打印第1-10页，打印份数为3，打印前先预览，指定的打印机为"pdfFactory Pro"：

Ws.PrintOut(From:=1,To:=10,Copies:=3,Preview:=True,ActivePrinter:="pdfFactory Pro")

使用vba打印excel http://www.foxtable.com/webhelp/scr/2121.htm

huwenguang2008

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：141 积分：1131 威望：0 精华：0 注册：2014/3/25 13:14:00

Post By：2017/10/9 8:52:00 [只看该作者]

'Functions.Execute("直接打印EXECL模板","物料条码标签")

Dim Book As New XLS.Book(ProjectPath & "Attachments\" & Args(0) & ".xls")

Dim fl As String = ProjectPath & "Reports\" & Args(0) & ".xls"

Book.Build() '生成细节区

Book.Save(fl) '保存工作簿

Dim Proc As New Process '打开工作簿

Proc.File = fl

'Proc.Verb = "Print" '指定动作

Proc.Start()

上述代码，要一次打印100张，怎么添加代码

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/10/9 8:55:00 [只看该作者]

Dim Book As New XLS.Book(ProjectPath & "Attachments\" & Args(0) & ".xls")
Dim fl As String = ProjectPath & "Reports\" & Args(0) & ".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)

Ws.PrintOut(Copies:=3)
app.quit

[此贴子已经被作者于2017/10/9 8:54:45编辑过]