条码打印机代码解读！
把这两天
的学习整理了一下，
下面是关于打印文本的解读，由于没有相关文档，有些是自己估计，如果有错误请帮忙指出：
strText = ""
strText = strText & "^XA" & vbCrLf //
开始标签格式
strText = strText & "^MCY" & vbCrLf //
清除以前的标签
strText = strText & "^XZ" & vbCrLf //
结束打印字段并结束标签格式
strText = strText & "^XA" & vbCrLf//
开始标签格式
strText = strText & "^LRN^FWN^CFD,24^LH" & m_strOX & "," & m_strOY//
设置起点坐标，
^LR
N
表示不反向打印（
N
表示不反向），
^FW
N
字体方向为正常（
N
表示正常），
^CFD
表示
采用的字符字体，
^LH
表示起点坐标
strText = strText & "^CI0^PR" & m_strSpeed & "^MNY^MTT^MMT^MD" & m_strDarkness & "^PON^PMN" //^CI0
指采用国际字符设置
0
代表
USA1
，
^PR
表示打印速度，
^MNY
表示纸类型类
Y
表示非连续纸，
^MTT
表示纸种类
T
表示热传印纸，
^MMT
表示打印模式
T
表示撕下，
^MD
表示标签深度（值在
-30
到
30
之间），
^PMN
打印标签镜象
N
表示不打印镜像
strText = strText & "^XZ" & vbCrLf
strText = strText & "^XA" & vbCrLf
strText = strText & "^A0N,23,24^FO32,11^CI0^FD(P) Part No^FS" & vbCrLf //^A0N
字体方向正常
N
表示正常，
^FO
表示起点位置，
^FD
数据字段，
^FS
段括号（通常做法是在数据后跟
^FS
指令），
^FD
和
^FS
间的字符为条码右边的内容。
strText = strText & "^A0N,23,24^FO33,77^CI0^FD(Q) Quantity^FS" & vbCrLf //
打印
Text
（位于条码上面）
strText = strText & "^A0N,23,24^FO33,216^CI0^FD(B)^FS" & vbCrLf //
打印
Text
strText = strText & "^A0N,23,24^FO32,143^CI0^FD(E) Product date + Expire days^FS" & vbCrLf
strText = strText & "^FO7,3^GB607,334,2,B,0^FS" & vbCrLf //^GB
表示图象框，后跟图象框宽度、图象框高度、线的厚度、线的颜色（
B
表示黑色）；
--
外面的大筐
strText = strText & "^A0N,23,16^FO288,78^CI0^FD(L) Lot No^FS" & vbCrLf
strText = strText & "^A0N,39,40^FO506,19^CI0^FDBenQ^FS" & vbCrLf
strText = strText & "^BY2,2.0^FO32,34^B3N,N,40,N,N^FDP" & pstrItem & "^FS" & vbCrLf //^BY
设置高度和宽度；
^FDP+ pstrItem + ^FS
表示
”P”+Partno
，打印条码
strText = strText & "^A0N,23,24^FO161,11^CI0^FD" & pstrItem & "^FS" & vbCrLf //
打印
Text
strText = strText & "^A0N,23,24^FO161,76^CI0^FD" & pstrUnitQty & "^FS" & vbCrLf //
打印
Text
strText = strText & "^BY2,2.0^FO32,99^B3N,N,40,N,N^FDQ" & pstrUnitQty & "^FS" & vbCrLf //
打印条码
strText = strText & "^A0N,23,24^FO353,143^CI0^FD" & pstrProdDate & "^FS" & vbCrLf //
打印
Text
strText = strText & "^A0N,23,24^FO474,143^CI0^FD " & pstrExpDays & "^FS" & vbCrLf //
打印
Text
strText = strText & "^BY2,2.0^FO33,167^B3N,N,40,N,N^FDE" & pstrProdDate & " " & pstrExpDays & "^FS" & vbCrLf //
打印条码
strText = strText & "^BY1,2.0^FO144,211^B3N,N,40,N,N^FD" & strControlNo & "^FS" & vbCrLf //
打印条码
strText = strText & "^A0N,21,22^FO176,253^CI0^FD*" & strControlNo & "*^FS" & vbCrLf //*
为软连接字号会被直接打出来
strText = strText & "^BY1,2.0^FO288,99^B3N,N,40,N,N^FD" & pstrLotNo & "^FS" & vbCrLf //
打印条码
strText = strText & "^A0N,23,24^FO423,289^CI0^FD" & pstrRTNo & pstrWareHouse & "^FS" & vbCrLf
strText = strText & "^BY1,3.0^FO32,274^B3N,N,40,N,N^FD" & pstrReelId & "^FS" & vbCrLf //
打印条码
strText = strText & "^A0N,21,22^FO81,316^CI0^FD*" & pstrReelId & "*^FS" & vbCrLf //
打印
ReelId
strText = strText & "^A0N,23,18^FO375,77^CI0^FD" & pstrLotNo & "^FS" & vbCrLf //
打印
LotNo Text
strText = strText & "^MCY" & vbCrLf //
清除标签
strText = strText & "^PQ1,0,1,Y" & vbCrLf //^PQ
表示打印数量，许可值：
1-99,999,999
，意义：打印总数
1
张标签每个序列号只打
1
张。打印每组数量是
0
，但在每组间不暂停（
Y
）
strText = strText & "" & vbCrLf