Блог

Я использую VB6 для создания штрих-кода для кода 39, upc и ean 13 с помощью sato cx с использованием языка sbl. Я не уверен, какой код использовать, я создаю штрих-код, но считыватель его не считывает.

Мой код:

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

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

Я ценю любую помощь…

Создайте простой текстовый принтер для вашего Sato Cx (универсальный принтер), связанный с lpt1, с помощью VB создайте текстовый файл (printout.txt )

 open "c:printout.txt" for output as #1
 

напишите следующие строки

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

теперь отправьте printout.txt файл в lpt1
вы можете сделать это с помощью shell execute

 type printout.txt >lpt1:
 

или создайте файл send2printer.bat и вызовите его через VB