I have a problem printing barcode labels using Visual Foxpro Code.

Here is the code that works in Dbase / Foxpro 2.6 for DOS

SET PRINTER ON
SET DEVICE TO PRINTER
@1,0 SAY Chr(2) + "c0000"
@1,0 SAY Chr(2) + "KI503"
@1,0 SAY Chr(2) + "O0220"
@1,0 SAY Chr(2) + "f221"
@1,0 SAY Chr(2) + "KW0256"
@1,0 SAY Chr(2) + "KI7" + Chr(1)
@1,0 SAY Chr(2) + "V0"
@1,0 SAY Chr(2) + "L"
@1,0 SAY Chr(2) + "H12"
@1,0 SAY Chr(2) + "PC"
@1,0 SAY Chr(2) + "A2"
@1,0 SAY Chr(2) + "D11"
@3,0 SAY Chr(2) + "141100000740070" + "GARMENTS"
@3,0 SAY Chr(2) + "141100000480088" + ":"
@3,0 SAY Chr(2) + "131100000390040" + "STYLE"
@3,0 SAY Chr(2) + "131100000250039" + "M.R.P."
@3,0 SAY Chr(2) + "131100000560042" + "SIZE" 
@3,0 SAY Chr(2) + "131100000570090" + ":"
@3,0 SAY Chr(2) + "131100000400090" + ":"
@3,0 SAY Chr(2) + "131100000510107" + "TY"
@3,0 SAY Chr(2) + "131100000380107" + "DISCO"
@3,0 SAY Chr(2) + "131100000220107" + "RS."
@3,0 SAY Chr(2) + "1e4401600050042" + "B123"
@3,0 SAY Chr(2) + "232200000850205" + "STYLO"
@3,0 SAY Chr(2) + "131100000230090" + ":"
@3,0 SAY Chr(2) + "131100000220132" + "RTY"
@3,0 SAY Chr(2) + "^01"
@3,0 SAY Chr(2) + "Q0001"
@3,0 SAY Chr(2) + "E"
SET PRINTER OFF
SET DEVICE TO SCREEN

Here is the code that works in Visual Basic

Private Sub Command1_Click()

Open "LPT1" For Output As #1

Print #1, Chr(2) + "c0000"
Print #1, Chr(2) + "O0220"
Print #1, Chr(2) + "f290"
Print #1, Chr(2) + "KI7" + Chr(1)
Print #1, Chr(2) + "V0"
Print #1, Chr(2) + "L"
Print #1, Chr(2) + "H10"
Print #1, Chr(2) + "PC"
Print #1, Chr(2) + "D11"

Print #1, Chr(2) + "1E4203700070012B" + "ASDF1234"
Print #1, Chr(2) + "192100001240010" + "SIZE"
Print #1, Chr(2) + "192100001040010" + "STYLE"
Print #1, Chr(2) + "192100000850010" + "COLOR"
Print #1, Chr(2) + "192100000650010" + "M.R.P."
Print #1, Chr(2) + "192100101230059" + ":"
Print #1, Chr(2) + "192100101040059" + ":"
Print #1, Chr(2) + "192100100840059" + ":"
Print #1, Chr(2) + "192100100650059" + ":"
Print #1, Chr(2) + "192100001260069" + "XXL"
Print #1, Chr(2) + "192100001040069" + "ASDF1234"
Print #1, Chr(2) + "192100000850069" + "BLACK"
Print #1, Chr(2) + "192100000650088" + "1200.00"
Print #1, Chr(2) + "192100000650067" + "Rs."

Print #1, Chr(2) + "^01"
Print #1, Chr(2) + "Q0001"

Print #1, Chr(2) + "E"

Close #1

End Sub

The dbase code when tried in Dbase / Foxpro 2.6 fails.

Any Help.

Thanks,
Freddie Rodrigues