当执行下面的代码时,Excel会为每个副本向打印机发送单独的打印输出命令,而不是只为所有副本发送一个命令。
这个问题在很大程度上减缓了印刷过程。如何通过向打印机发送较少的命令来加快速度,而不是为每个副本发送单独的命令?
Sub tryPrint()
Dim Barcode As Worksheet
Set Barcode = Sheets("ETIKET")
Application.PrintCommunication = False
With Barcode.PageSetup
.FitToPagesTall = 1
.FitToPagesWide = 1
End With
Application.PrintCommunication = True
Barcode.PrintOut , Preview:=False, Copies:=4, ActivePrinter:="\\MUHASEBE\Argox OS-214 plus series PPLA"
End Sub例如:指定4个副本后,代码向打印机发送4个不同的命令:
Barcode 1
Barcode 1
Barcode 1
Barcode 1相反,我希望它发送如下:
Barcode 4这样的话,这个过程就会加速100%。谢谢你的建议!
发布于 2019-06-26 08:49:07
I不能复制这个,但是这个解决方案显然是有效的:
在将参数传递给Collate:=False时设置.Printout应该可以做到这一点。在此之后,您必须手动对副本进行排序,但是由于您打印的标签是相同的,所以没有任何区别。
这些文档可以在这里找到:Excel.Worksheet.PrintOut
https://stackoverflow.com/questions/56750332
复制相似问题