VBA打印机设置（列出所有打印机名字、选用合适的打印机并设计端口号）
VBA打印机设置（列出所有打印机名字、选⽤合适的打印机并设计端⼝号）'查看打印机
Sub PrinterDemo()
Dim WshNetwork As Object
Dim oPrinter As Object
Dim i As Long
Set WshNetwork = CreateObject("WScript.Network")
Set oPrinter = WshNetwork.EnumPrinterConnections
采菊东篱下For i =0To oPrinter.Count -1
劈叉怎么练If i Mod2=0Then
Debug.Print "端⼝：" & vbTab & oPrinter(i)
Else
Debug.Print "名字：" & vbTab & oPrinter(i)& vbNewLine
End If
Next i
Debug.Print "默认打印机：" & Application.ActivePrinter  '按照输出的形式设定需要的打印机
'运⾏“Regedit”后查“PrinterPorts”，即可看到每个打印机对应的端⼝信息。
'如果点击查后没有看到，则按F3查下⼀个（可能有很多个PrinterPorts）
End Sub
Sub Printer()
Dim i As Long
天文望远镜品牌Application.ActivePrinter = "TOSHIBA e-STUDIO2823AMSeries GDI 在 Ne01:"
For i =1To Worksheets.Count2019年高考成绩查询时间
Worksheets(i).Range("A1:I58").PrintOut from:=1,to:=1
Application.Wait Now + TimeValue("00:00:10")
Next i
' 打印
End Sub
'设置打印机端⼝号
Sub t()
On Error GoTo myerror
Dim i As Long
i =0
Do While True
国漫
Application.ActivePrinter = "Microsoft Print to PDF 在 Ne0" & i & ":"
Exit Do
myerror:
Resume nextLoop
nextLoop:
i = i +1
Loop
墨梅古诗原文及翻译
Debug.Print "正确的打印机为：" & "Microsoft Print to PDF 在 Ne0" & i & ":"
End Sub

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。