Sub 连续打印()
rs = Sheets("合计金额").Cells(Rows.Count, 7).End(xlUp).Row
ar = Sheets("合计金额").Range("g1:g" & rs)
For i = 2 To UBound(ar)
If Trim(ar(i, 1)) <> "" Then
With Sheets("表单列印")
.[j6] = ar(i, 1)
.PrintOut Copies:=1, Collate:=True, ActivePrinter:="\\PC-20180330UQSC\Fujitsu DPK720 在 Ne03:,PaperSize = 124"
End With
End If
Next i
End Sub
说明：每个机器定义的打印机和尺寸都不一样的，如果要知道如何自己的打印机和纸张，可以用录制新宏的方法，找到自己的打印机和尺寸编号。我公司的打印机设置是这样的：ActivePrinter:="\\PC-20180330UQSC\Fujitsu DPK720 在 Ne03:,PaperSize = 124"
共享打印机的电脑如果重装系统，那么要重新定义这段程序的打印机设置。
在装有共享打印机的那台电脑里，端口是USB001,之前改为Lpt1,结果打印出错。将端口改回来就好了。每个人的电脑不一样，都要按照实际情况来设置。PaperSize = 124，表明设置的打印纸张格式是【NFCP 窄行连续 240mm 二等分】格式。
至于为什么端口是Ne03,在注册表中展开路径为[HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\PrinterPorts]，里面可以看到自己电脑打印机的端口。
