求助，怎样在VBA中设定打印机

dcb6381211

老司机带带我 发表于 2016-5-31 13:14
一台电脑同时运行和打印机相同数量的那个附件电子表格是什么意思？同时打开N多个工作簿？还是没弄明白你的 ...

大师，是如下面红色代码这样吗：
Private Sub autoPrinter()
'Static COUNTER As Long
Dim msg As String
On Error GoTo err '意外错误捕捉
  
  Worksheets(1).EnableCalculation = False '关闭公式计算功能
    Application.DisplayAlerts = False

Application.ActivePrinter =“ \\10.0.8.227\DASCOM DS-5400H 在 Ne05: ”‘选择打印机，如果改变打印机，就改变"\\10.0.8.227\DASCOM DS-5400H 在 Ne05:"，如改变为“pdfFactory Pro 在 FPP3:”

   Worksheets(1).PrintOut Copies:=1, Collate:=True '打印当前页
  MYPor.Value = COUNTER
  labCOUNTER.Caption = COUNTER
   labStat.Caption = "当前打印第 " & COUNTER & "张!"
         
   If chkSaveas.Value = 1 Then Call Macro1  '录的宏
   If chkSaveas.Value = 1 Then ThisWorkbook.Save
         
         
     Worksheets(1).EnableCalculation = True '开始公式计算功能
COUNTER = COUNTER + 1 '计数器运行
PrintTime (txtDelay.Text) ' 延迟执行下次动作
If COUNTER <= txtPage.Text Then
If cmdPause.Tag = "" Then
Call autoPrinter
End If
Else
msg = MsgBox("当前打印工作已执行完毕，是否继续向后打印" & txtPage.Text & "张？", _
36, "Auto Print")
          If msg = vbYes Then
            COUNTER = 1
             labCOUNTER.Caption = 1
              Call autoPrinter
            Else
             cmdReset_Click
             End If
                                 
  End If
  
Exit Sub
err:
MsgBox err.Description, 16, "Error"
End Sub