vba选择网络打印机(使用VBA选择网络打印机，简单易用！)

vba选择网络打印机(使用VBA选择网络打印机，简单易用！)已关闭评论

A+

摘要

介绍电脑和网络的发展，使得打印机由过去的单个设备发展成为可以连接到网络的设备，也就是网络打印机，为用户提供了更为方便的打印服务。在VBA中，我们可以通过几行简单的代码来选择和使用网络打印机。选择网络打印机在VBA中，选择网络打印机可以使用以下代码：SubselectNetworkPrinter()DimxAsLongDimstrPrinterNameAsString’获取打印机数量x=Appl

介绍

电脑和网络的发展，使得打印机由过去的单个设备发展成为可以连接到网络的设备，也就是网络打印机，为用户提供了更为方便的打印服务。在VBA中，我们可以通过几行简单的代码来选择和使用网络打印机。

选择网络打印机

在VBA中，选择网络打印机可以使用以下代码：


Sub selectNetworkPrinter()
Dim x As Long
Dim strPrinterName As String
'获取打印机数量
x = Application.Printers.Count
'循环遍历打印机列表
For i = 0 To x - 1
  '判断是否为网络打印机
  If InStr(1, Application.Printers(i).DeviceName, "网络打印机") > 0 Then
    strPrinterName = Application.Printers(i).DeviceName
    '选择网络打印机
    Set Application.ActivePrinter = Application.Printers(i).DeviceName
    Exit For
  End If
Next i
End Sub>

以上代码通过循环遍历打印机列表，并判断打印机的名称是否包含“网络打印机”关键字，来选择网络打印机。

打印文件

在VBA中，打印文件可以使用以下代码：


Sub printFile()
Dim strPrinterName As String
Dim strFilePath As String
'选择网络打印机
selectNetworkPrinter
'选择要打印的文件路径
strFilePath = "D:\example.docx"
'设置打印机名称
strPrinterName = Application.ActivePrinter
'打印文件
Application.ActiveDocument.PrintOut Background:=False, _
Range:=wdPrintAllDocument, _
Item:=wdPrintDocumentContent, _
Copies:=1, _
Pages:="", _
PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, _
Collate:=True, _
BackgroundPrinting:=False, _
PrintToFile:=False, _
OutputFileName:="", _
From:=1, _
To:=1, _
Item2:=wdPrintDocumentWithMarkup, _
PrinterName:=strPrinterName, _
PrintZoomColumn:=0, _
PrintZoomRow:=0, _
PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
End Sub