请大神帮帮忙

yang79131

Sub 合格证打印()

    Worksheets("铝芯电缆打印").Range("$A$2:$E$8").PrintOut

End Sub

Sub 检验报告打印()

  Dim name$

  name = Sheets("铝芯电缆打印").[G12].Value

  Sheets(name).Visible = True

  Sheets(name).PrintOut Copies:=1, Collate:=True

  Sheets(name).Visible = False

End Sub

利用以上两个程序分别实现了自动选取，自动打印，但新的问题又出现了，合格证打印和检验报告打印需选取不同的打印机，有两台打印机，一台是与本机连接的针式打印机，用来打印合格证；一台是网络打印机，用来打印检验报告，不知该怎么修改以上程序才可以实现，请大神指教。

smhf_6

你的电脑平常打印时，是怎么办的？是不是手工切换的？
感觉这个问题，涉及到操作系统的处理，vba的适用范围有这么广嘛？。曾经看到过一个用VB写的，用于自动切换代理服务器的APP。所以，感觉是可行的，但能力不足。

yang79131

昨天研究了一下，可以实现。穿插了这个语句：Application.ActivePrinter = "Jolimark FP-538K (副本 1) 在 Ne01:"但是，问题是本机打印机反应迅速，即点即打印，但网络打印机延迟很大，点击执行后，还会出现无响应状态，等一分钟后才执行，不知道为什么，请大神指点。重点是第二个检验报告打印程序，指定网络打印机，总是延迟很大，不知道为什么。
Sub 合格证打印()
    Application.ActivePrinter = "Jolimark FP-538K (副本 1) 在 Ne01:"
    Worksheets("铝芯电缆打印").Range("$A$2:$E$8").PrintOut
End Sub
Sub 检验报告打印()
  Dim name$
  name = Sheets("铝芯电缆打印").[G12].Value
  Sheets(name).Visible = True
  Application.ActivePrinter = "TOSHIBA e-STUDIO2823AMSeries GDI 在 Ne00:"
  Sheets(name).PrintOut Copies:=1, Collate:=True
  Sheets(name).Visible = False
End Sub

yang79131

smhf_6 发表于 2021-5-10 07:24
你的电脑平常打印时，是怎么办的？是不是手工切换的？
感觉这个问题，涉及到操作系统的处理，vba的适用范 ...

Sub 合格证打印()
    Application.ActivePrinter = "Jolimark FP-538K (副本 1) 在 Ne01:"
    Worksheets("铝芯电缆打印").Range("$A$2:$E$8").PrintOut
End Sub
Sub 检验报告打印()
  Dim name$
  name = Sheets("铝芯电缆打印").[G12].Value
  Sheets(name).Visible = True
  Application.ActivePrinter = "TOSHIBA e-STUDIO2823AMSeries GDI 在 Ne00:"
  Sheets(name).PrintOut Copies:=1, Collate:=True
  Sheets(name).Visible = False
End Sub
增加了这个语句Application.ActivePrinter = "TOSHIBA e-STUDIO2823AMSeries GDI 在 Ne00:"后可以实现了，但是本机打印机可以实现即点即打印，在第二个检验报告打印程序中用到了网络打印机，总是延迟极大，点击后甚至出现了无法响应，一分钟后才执行，不知道如何解决，请大神指点。

yang79131

有人能帮忙解决一下吗？

yang79131

Sub 合格证打印()
    Application.ActivePrinter = "Jolimark FP-538K (副本 1) 在 Ne01:"
    Worksheets("铝芯电缆打印").Range("$A$2:$E$8").PrintOut
End Sub
Sub 检验报告打印()
  Dim name$
  name = Sheets("铝芯电缆打印").[G12].Value
  Sheets(name).Visible = True
  Application.ActivePrinter = "TOSHIBA e-STUDIO2823AMSeries GDI 在 Ne00:"
  Sheets(name).PrintOut Copies:=1, Collate:=True
  Sheets(name).Visible = False
End Sub
增加了这个语句Application.ActivePrinter = "TOSHIBA e-STUDIO2823AMSeries GDI 在 Ne00:"后可以实现了，但是本机打印机可以实现即点即打印，在第二个检验报告打印程序中用到了网络打印机，总是延迟极大，点击后甚至出现了无法响应，一分钟后才执行，不知道如何解决，请大神指点。