自动化automation错误

zhangv712

请各位老师看看  这是是因为电脑的原因还是代码的原因

0126

嗯试了下，代码没有错误，是不是打印机名字录错了，注意是名称不是类型什么的。
下面这个代码可以获取当前打印机名称
MsgBox Application.ActivePrinter

zhangv712

0126 发表于 2019-12-4 18:27
嗯试了下，代码没有错误，是不是打印机名字录错了，注意是名称不是类型什么的。
下面这个代码可以获取当前 ...

感谢老师{:9_315:}

苏子龙

可以循环提取打印机名称

1. Sub 在代码中直接写入打印机名()
   
2.     Dim net
   
3.     Dim nPrt As Integer, i As Integer
   
4.     Set net = CreateObject("WScript.Network")
   
5.     nPrt = net.EnumPrinterConnections.Count
   
6.     For i = 0 To nPrt - 1 Step 2
   
7.         Debug.Print Int(i / 2 + 1); "打印机名称："
   
8.         Debug.Print net.EnumPrinterConnections.Item(i + 1); Chr(10)
   
9.     Next i
   
10. '    net.SetDefaultPrinter "DASCOM AR-580II"'填入正确的打印机名称
    
11. '    ActiveSheet.PrintPreview  '打印预览
    
12. '    net.SetDefaultPrinter "Kyocera TASKalfa 1800 GX"
    
13. End Sub

复制代码