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]，里面可以看到自己电脑打印机的端口。