Vb6 向sato打印机标签添加条形码

我使用VB6创建代码39、upc和ean 13的条形码，sato cx使用sbl语言。我不确定要使用什么代码，我创建了一个条形码，但阅读器不读取它

我的代码：

SASTextoBarra = Chr$(27) & "H00780" & Chr$(27) & "V1000" & _
Chr$(27) & " H0030 " & Chr$(27) & "V0240" & Chr$(27) & "B103100*CODE 39*"

SASTextoBarra = SASTextoBarra & Chr$(27) & "H00380" & Chr$(27) & "B103100*12345*"

---

非常感谢您的帮助……

为您链接到lpt1的Sato Cx（通用打印机）创建一个简单的文本打印机 用VB创建一个文本文件（printout.txt）

写下以下几行

print #1,"<A>"
print #1,"<V>1000<H>30<B>10310012345"
print #1,"<Z>"
close #1

---

或者创建send2printer.bat文件并通过VB调用它

我还有一个问题，我无法读取和打印代码为39或upc的代码024792、C00008。有什么帮助吗？

print #1,"<A>"
print #1,"<V>1000<H>30<B>10310012345"
print #1,"<Z>"
close #1

type printout.txt >lpt1: