Pls help in this VB code, Sato CX400 barcode printer

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"