打印多份的方法 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 打印多份的方法

共有2387人关注过本帖树形打印复制链接主题：打印多份的方法

李睿涵

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

加好友

发短信

等级：三尾狐帖子：780 积分：5756 威望：0 精华：0 注册：2012/10/21 7:57:00

打印多份的方法 发帖心情

Post By：2016/5/28 17:51:00 [只看该作者]

生成excel报表后，希望一式多份，用户可以自定义打印份数

我用了下面的代码：

Dim Val As Integer = 1

If InputValue(Val, "批量打印", "请输入要打印的份数:") Then

For i As Integer = 1 To val

Dim Proc As New Process '打开工作簿

Proc.File = fl

proc.verb = "print"

Proc.Start()

End If

但实际打印时，报以下错误：

此主题相关图片如下：qq图片20160528175013.png

请教有其他好方法吗？

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/5/29 23:43:00 [只看该作者]

用vba打印

PrintOut

直接打印。如，Ws.PrintOut

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

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

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

下一主题 >> << 上一主题

主题：打印多份的方法