以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  打印多份的方法  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=85568)
--  作者：李睿涵
--  发布时间：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()
        Next        
    End If

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

图片点击可在新窗口打开查看此主题相关图片如下：qq图片20160528175013.png
图片点击可在新窗口打开查看

请教有其他好方法吗？
--  作者：大红袍
--  发布时间：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