word vba 网络打印机(利用Word VBA 实现网络打印机控制 50字以内，符合规范，不含特殊符号。)

word vba 网络打印机(利用Word VBA 实现网络打印机控制 50字以内，符合规范，不含特殊符号。)已关闭评论

A+

摘要

使用WordVBA控制网络打印机的方法在企业或学校等机构中，经常需要使用网络打印机来进行文档的输出。此时，如果能够实现通过WordVBA来进行网络打印机的控制，就能够更加高效地完成打印作业。以下是一些方法。1.获取网络打印机对象使用WordVBA可以方便地获取网络打印机对象。我们可以通过以下代码来获取一个网络打印机对象。DimnetPrinterAsPrinterSetnetPri

使用Word VBA控制网络打印机的方法

在企业或学校等机构中，经常需要使用网络打印机来进行文档的输出。此时，如果能够实现通过Word VBA来进行网络打印机的控制，就能够更加高效地完成打印作业。以下是一些方法。

1.获取网络打印机对象

使用Word VBA可以方便地获取网络打印机对象。我们可以通过以下代码来获取一个网络打印机对象。

Dim netPrinter As Printer


Set netPrinter = GetObject("winmgmts:" _
& "{impersonationLevel=Impersonate}!\\PrintServerName\root\cimv2" _

& ":Win32_Printer.DeviceID='\\\\PrintServerName\\PrinterShareName'")

2.设置打印机属性

获取网络打印机对象后，我们可以使用VBA来设置打印机属性。例如，下面的代码将打印机的纸张大小设置为A4，颜色设置为黑白，双面打印为开启。

With netPrinter


.PaperSize = wdPaperA4
.ColorMode = wdColorBlackAndWhite

.PrintDuplex = wdDuplexVertical

3.执行打印作业

在设置好打印机属性之后，我们可以使用VBA的PrintOut方法来执行打印作业。PrintOut方法包含多个参数，可以根据需要设置。例如，下面的代码将当前Word文档直接打印到指定网络打印机。

ActiveDocument.PrintOut PrintToFile:=False, _


Collate:=True, _
Copies:=1, _
Pages:="1", _
Item:=wdPrintDocumentContent, _
Printer:=netPrinter.Name, _
PrintZoomColumn:=0, _
PrintZoomRow:=0, _
PrintZoomPaperWidth:=0, _

PrintZoomPaperHeight:=0