Sub 連續(xù)打印()
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"
共享打印機的電腦如果重裝系統(tǒng)簇宽，那么要重新定義這段程序的打印機設置排龄。
在裝有共享打印機的那臺電腦里惜互，端口是USB001,之前改為Lpt1,結(jié)果打印出錯吴菠。將端口改回來就好了。每個人的電腦不一樣清寇，都要按照實際情況來設置喘漏。PaperSize = 124护蝶，表明設置的打印紙張格式是【NFCP 窄行連續(xù) 240mm 二等分】格式。?
至于為什么端口是Ne03,在注冊表中展開路徑為[HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\PrinterPorts]翩迈，里面可以看到自己電腦打印機的端口持灰。
