Excel vba直接调用斑马打印机进行打印代码
1.难点
1.1 vba 对zebra打印机调用方法open
1.2 zebra打印机默认支持UTF8 编码方式，对应编码命令为CI28; 支持GB2312 GB18030 ASCII码编码方式，对应编码命令为CI26
1.3 VBA对中文只支持GB2312, 而excel 是默认支持UTF8的， excel 与VBA编码环境并不一样。
1.4 斑马打印机（新机默认环境）是UTF8的，需要指定字体（SIMSUN.TFF）和编码方式(CI26 支持GB18030,兼容GB2312)
2.代码样例
Sub 打印()
Dim file As String
'Dim i, NumLabels As Integer
file = ""
' MyPrinter = "\\\\10.165.98.33\\IP_Print_ZDesigner ZT410-203dpi ZPL（test）"
'NumLabels = 1
Call optxt(file)
'printcmd = "copy " & file & ""
'printcmd = printcmd & " \\\\10.165.98.33\\IP_Print_ZDesigner ZT410-203dpi ZPL（test）"
'Open MyPrinter For Output As #2
' Print #2, "^PQ" & NumLabels
' Print #2, file
' Close #2
'Shell ("copy " & file & """ \\\\10.165.98.33\\IP_Print_ZDesigner ZT410-203dpi ZPL（test）""")
'Debug.Print printcmd
' Shell printcmd
' Shell"C:\\windows\\system32NOTEPAD.EXE /p " & file
End Sub
Function optxt(file)
Dim FSN, sheetname, nowDate, SN, PN, SEQ, ItemDesc1, ItemDesc2, PIK, CDT, MyPrinter As String
Dim i, NumLabels As Integer
sheetname = ActiveWindow.ActiveSheet.name '当前光标sheetname
FSN = Sheets(sheetname).Range("B16") & Format(Now, "YYYY") & Format(Now, "MM") & Format(Now, "DD") & Format(Now, "hhmmss") '输出历史文件用的文件名变量
SN = Sheets(sheetname).Range("B16") & Format(Now, "YYYY") & Format(Now, "MM") & Format(Now, "DD") & Format(Now, "hhmmss") '输出产品流水号(唯一），给二维码生产使用
PN = Sheets(sheetname).Range("B16") '模板上面产品型号，因为标签纸装不下，所以SN拆分成PN与SEQ
SEQ = Format(Now, "YYYY") & Format(Now, "MM") & Format(Now, "DD") & Format(Now, "hhmmss") '同上
ItemDesc1 = Sheets(sheetname).Range("B18") '获取中文描述
ItemDesc2 = Sheets(sheetname).Range("B19") '获取中文描述
CDT = Format(Now, "yyyy/mm/dd") & " " & Format(Now, "hh:mm:ss") '获取格式化后时间格式
PIK = Sheets(sheetname).Range("B20") '获取看板值，以上值在每个sheet都是固定的
'定义文本文件的名称
Path = ThisWorkbook.Path & "\\history\\"
If Dir(Path) <> "" Then
file = ThisWorkbook.Path & "\\history\\" & FSN & ".txt" '如果为真则把新建的txt文件放在该路径的路径
Else
MkDir (ThisWorkbook.Path & "\\history") '如果为假则把先创建该文件夹，让后把新建的txt文件放在该路径的路径
file = ThisWorkbook.Path & "\\history\\" & FSN & ".txt"
End If
Open file For Output As #1 '打开a.txt,指定文件编号为#1
Print #1, "^XA~TA000~JSN"
Print #1, "^LT0"
Print #1, "^MD3"
Print #1, "^PON"
Print #1, "^PMN"
Print #1, "^LH0,0"
Print #1, "^PR3,6"
Print #1, "^SD20"
Print #1, "^JUS"
Print #1, "^LRN"
Print #1, "^CI0"
Print #1, "^XZ"
Print #1, "^XA"
Print #1, "^CWS,E:SIMSUN.TTF"
Print #1, "^MMT"
Print #1, "^PW416"
Print #1, "^LL0320"
Print #1, "^LS0 "
Print #1, "^FT33,166^BQN,2,4"
Print #1, "^FH\\^FDHA," & SN & "^FS "
Print #1, "^FPH,2^FT153,61^A0N,23,25^FH\\^CI28^FD" & PN & "^FS^CI27"
Print #1, "^FPH,2^FT153,90^A0N,23,25^FH\\^CI28^FD" & SEQ & "^FS^CI27"
Print #1, "^FPH,2^FT153,145^A0N,11,10^FH\\^CI28^FD*****^FS^CI27"
Print #1, "^FPH,2^FT253,145^A0N,11,10^FH\\^CI28^FD" & CDT & "^FS^CI27"
Print #1, "^FPH,2^FT33,170^ASN,15,10^FH\\^CI26^FD" & ItemDesc1 & "^FS^CI27"
Print #1, "^FPH,2^FT33,190^ASN,15,10^FH\\^CI26^FD" & ItemDesc2 & "^FS^CI27"
Print #1, "^FO23,190^GB370,0,4^FS"
Print #1, "^FPH,2^FT90,220^ASN,23,25^FH\\^CI26^FD包覆件报产条码^FS^CI27"
Print #1, "^BY2,3,40^FT35,270^BCN,,Y,N^FH\\^FD" & PIK & "^FS^CI27"
Print #1, "^PQ1,0,1,Y"
Print #1, "^XZ"
Close #1
optxt = file
'MyPrinter = "\\\\10.165.98.33\\IP_Print_ZDesigner ZT410-203dpi ZPL（test）"
MyPrinter = "\\\\10.165.98.33\\IP-print-ZDesigner ZT411-203dpi ZPL(station20)" '打印机位置，这种方式默认对共享打印机有效。
NumLabels = 1 '打印数量
Open MyPrinter For Output As #2 '打开打印机通道,指定文件编号为#2
Print #2, "^XA~TA000~JSN"
Print #2, "^LT0"
Print #2, "^MD3"
Print #2, "^PON"
Print #2, "^PMN"
Print #2, "^LH0,0"
Print #2, "^PR3,6"
Print #2, "^SD20"
Print #2, "^JUS"
Print #2, "^LRN"
Print #2, "^CI0"
Print #2, "^XZ"
Print #2, "^XA"
Print #2, "^MMT"
Print #2, "^PW416"
Print #2, "^LL0320"
Print #2, "^LS0 "
Print #2, "^CWS,E:SIMSUN.TTF" '使用simun宋体，且别名为S
Print #2, "^SEE:GB18030.DAT^CI26" '新打印机必须用该命令为SIMSUN指定GB18030.DAT编码
Print #2, "^FT33,166^BQN,2,4"
Print #2, "^FH\\^FDHA," & SN & "^FS "
Print #2, "^FPH,2^FT153,61^A0N,23,25^FH\\^CI28^FD" & PN & "^FS^CI27"
Print #2, "^FPH,2^FT153,90^A0N,23,25^FH\\^CI28^FD" & SEQ & "^FS^CI27"
Print #2, "^FPH,2^FT153,145^A0N,11,10^FH\\^CI28^FD**********^FS^CI27"
Print #2, "^FPH,2^FT253,145^A0N,11,10^FH\\^CI28^FD" & CDT & "^FS^CI27"
Print #2, "^FPH,2^FT33,170^ASN,15,10^FH\\^CI26^FD" & ItemDesc1 & "^FS^CI27"
Print #2, "^FPH,2^FT33,185^ASN,15,10^FH\\^CI26^FD" & ItemDesc2 & "^FS^CI27"
Print #2, "^FO23,190^GB370,0,4^FS"
Print #2, "^FPH,2^FT90,220^ASN,23,25^FH\\^CI26^FD****包覆件报产条码^FS^CI27"
Print #2, "^BY2,3,40^FT35,270^BCN,,Y,N^FH\\^FD" & PIK & "^FS^CI27"
Print #2, "^PQ" & NumLabels & ",0,1,Y"
Print #2, "^XZ"
Close #2
End Function
打印机代码
从Excel VBA打印到” ZPL打印机” Zebra标签打印机Chrome插件模拟器时，如何将端口永久设置为9100 | 码农家园 (codenong.com)
https://www.codenong.com/59376654/
ZEBRA 官网中文调用
通过 VBA（Visual Basic for Applications）发送 ZPL (zebra.cn)https://supportcommunity.zebra.cn/s/article/Sending-ZPL-via-VBA-Visual-Basic-for-ApplicationsArticle Detail (zebra.cn)https://supportcommunity.zebra.cn/s/article/Zebra-Printer-Chinese-SimSun-font