| |
| | |

Printer Forum   

 Forgot password?
 register
Search
View: 1464|Reply: 2

Pls help in this VB code, Sato CX400 barcode printer

[Copy link]

Post time: 2012-11-11 21:55:55 |Show all posts
I have following VB code for Sato CX400 barcode printer, but it is not printing Barcode, only text it is printing. What is the problem, please suggest. My label size is width 5 cm , Height 2.5 cm. Vb Code ----------------------------------------------- Open "lpt1" For Output As 1 E$ = Chr$(27) Print #1, E$; A Print #1, E$, H0025; E$; V1130 Print #1, E$, BG02048I1234567890 Print #1, E$, BW03100 Print #1, E$, "RegNo :", "123456" Print #1, E$, "Name : ", "upma jain" Print #1, E$, "Testname :", "Birlamedisoft" Print #1, E$, "sample :", "blood" Print #1, E$, Q1 Print #1, E$, Z
--SATO CX400 Thermal Label Printer

Post time: 2012-11-12 00:32:34 |Show all posts
just make prn file or by crystal report
call me on 9974985001

Post time: 2012-11-11 23:05:10 |Show all posts
jst try this u create a label from label printing software using ato font then make a prn
then attach u r vb code in to prn it will work
rohitjain
prn example-------------
A
*
&
Z
A
CB+18
Z
A
CD250,3300
Z
A
AR
Z
A
A100950647
Z
A
%2h416v0072BG01031>H23456111
%2PSP02h573v0021L0101XS922
%2PSP02h618v0021L0101XS18K
%2PSP02h415v0089L0101XS17125
%2PSP02h416v0039L0101XSPO124
%2PSP02h416v0022L0101XS215gms
%2PSP02h618v0043L0101XSDR37/0.20
%2PSP02h618v0064L0101XSDR37/0.20
%2PSP02h618v0085L0101XSDT/B44/0.82
&
Z

vb code example------------------
Open "LPT1" For Output As 1
Do While rs.EOF = False
For I = 1 To Val(Text1.Text)
Print #1, "A"
Print #1, "*&"
Print #1, "Z"
Print #1, "A"
Print #1, "CB+18"
Print #1, "Z"
Print #1, "A"
Print #1, "CD250,3300"
Print #1, "Z"
Print #1, "A"
Print #1, "AR"
Print #1, "Z"
Print #1, "A"
Print #1, "A100950647"
Print #1, "Z"
Print #1, "A"
X = "%2h380v0065BG01031>H"
Y = rs.Fields(6).Value
X = X + Y
Print #1, X
Print #1, "%2PSP02h618v0085L0101XSKT"
Print #1, "%2PSP02h600v0085L0101XS", rs.Fields(1).Value
Print #1, "%2PSP02h618v0064L0101XSNetWt"
Print #1, "%2PSP02h600v0063L0101XS", rs.Fields(2).Value
Print #1, "%2PSP02h618v0043L0101XSDiaWt"
Print #1, "%2PSP02h600v0041L0101XS", rs.Fields(3).Value
Print #1, "%2PSP02h618v0021L0101XSColWt"
Print #1, "%2PSP02h602v0021L0101XS", IIf(IsNull(rs.Fields(4).Value), " ", rs.Fields(4).Value)
Print #1, "%2PSP02h430v0084L0101XS", rs.Fields(5).Value
Print #1, "%2PSP02h371v0028L0101XS$"
Print #1, "%2PSP02h405v0028L0101XS", rs.Fields(7).Value
Print #1, "&"
Print #1, "Z"
Print #1, " A"
Print #1, " #E5"
Print #1, " Z"
Print #1, " A"
Print #1, " CS2"
Print #1, " Z"
Print #1, "A"
Print #1, " 0000"
Print #1, "TEXT1.TEXT"
Print #1, "/"
Print #1, "Z"
You have to log in before you can reply Login | register

Advertise on OASQ.COM| Contact us| Archive| OASQ

2021-11-27 15:41 GMT-8

Powered by Discuz! 7.2

Release 20121101, © 2001-2021 OASQ.

To Top