Printing Barcode to TSC barcode printer from VB6

[RajeshBabua23]

Helo,
i need a help for printing barcode to barcode printer from VB6.
i have TSC TTp-244 Plus barcode printer and they generate their printer programming code in text format and give to me. now i want to generate different barcodes usnig that code. i fill values. i use printer.print command to send these commands to printer. but i can't got the barcode label, insted the codes i were i snded through the printer.print command.

here is the TSC's code they given to me

SIZE 77.5 mm, 24 mm
GAP 3 mm, 0 mm
SPEED 2
DENSITY 12
DIRECTION 0,0
REFERENCE 0,0
OFFSET 0 mm
SHIFT 0
SET PEEL OFF
SET CUTTER OFF
SET TEAR ON
CLS
CODEPAGE 850
TEXT 587,186,"ROMAN. TTF",180,1,8,"L OOK OPTICALS"
TEXT 171,186,"ROMAN. TTF",180,1,8,"L OOK OPTICALS"
TEXT 586,160,"ROMAN. TTF",180,1,7,"B igboss"
TEXT 170,160,"ROMAN. TTF",180,1,7,"B igboss"
TEXT 584,135,"ROMAN. TTF",180,1,7,"R s :"
TEXT 168,135,"ROMAN. TTF",180,1,7,"R s :"
TEXT 546,138,"ROMAN. TTF",180,1,9,"1 456/-"
TEXT 130,138,"ROMAN. TTF",180,1,9,"1 456/-"
TEXT 611,117,"ROMAN. TTF",90,1,7,"RC HW"
TEXT 195,117,"ROMAN. TTF",90,1,7,"RC HW"
BARCODE 602,93,"128M",5 6,0,180,1,2,"!1 0512345678"
BARCODE 186,93,"128M",5 6,0,180,1,2,"!1 0512345678"
TEXT 603,33,"ROMAN.T TF",180,1,7,"12 345678"
TEXT 187,33,"ROMAN.T TF",180,1,7,"12 345678"
PRINT 1,1

=============== ==========
i fill item code, mrp etc in a Flex grid.

below is my code in VB6.

Printer.Print "SIZE 77.5 mm, 24 mm"
Printer.Print "GAP 3 mm, 0 mm"
Printer.Print "SPEED 2"
Printer.Print "DENSITY 12"
Printer.Print "DIRECTION 0,0"
Printer.Print "REFERENCE 0,0"
Printer.Print "OFFSET 0 mm"
Printer.Print "SHIFT 0"
Printer.Print "SET PEEL OFF"
Printer.Print "SET CUTTER OFF"
Printer.Print "SET TEAR ON"
Printer.Print "CLS"
Printer.Print "CODEPAGE 850"
While i <= crow
ITM1 = Trim(grid.TextM atrix(i, 1))
MRP1 = Trim(grid.TextM atrix(i, 4))
CST1 = Trim(grid.TextM atrix(i, 18))
ITM_CD1 = Trim(grid.TextM atrix(i, 0))

'--------
i = i + 1
If i > crow Then GoTo END_PRNT1
itm2 = Trim(grid.TextM atrix(i, 1))
MRP2 = Trim(grid.TextM atrix(i, 4))
CST2 = Trim(grid.TextM atrix(i, 18))
ITM_CD2 = Trim(grid.TextM atrix(i, 0))

Printer.Print "TEXT 587,186," & """" & "ROMAN.TTF" & """" & ",180,1,8," & """" & "LOOK OPTICALS" & """"
Printer.Print "TEXT 171,186," & """" & "ROMAN.TTF" & """" & ",180,1,8," & """" & "LOOK OPTICALS" & """"

Printer.Print "TEXT 586,160," & """" & "ROMAN.TTF" & """" & ",180,1,7," & """" & ITM1 & """"
Printer.Print "TEXT 170,160," & """" & "ROMAN.TTF" & """" & ",180,1,7," & """" & itm2 & """"

Printer.Print "TEXT 584,135," & """" & "ROMAN.TTF" & """" & ",180,1,7," & """" & "Rs :" & """"
Printer.Print "TEXT 168,135," & """" & "ROMAN.TTF" & """" & ",180,1,7," & """" & "Rs :" & """"

Printer.Print "TEXT 546,138," & """" & "ROMAN.TTF" & """" & ",180,1,9," & """" & MRP1 & "/-" & """"
Printer.Print "TEXT 130,138," & """" & "ROMAN.TTF" & """" & ",180,1,9," & """" & MRP2 & "/-" & """"

Printer.Print "TEXT 611,117," & """" & "ROMAN.TTF" & """" & ",90,1,7," & """" & CST1 & """"
Printer.Print "TEXT 195,117," & """" & "ROMAN.TTF" & """" & ",90,1,7," & """" & CST2 & """"

Printer.Print "BARCODE 602,93," & """" & "128M" & """" & ",56,0,180,1,2, " & """" & "!105" & ITM_CD1 & """"
Printer.Print "BARCODE 186,93," & """" & "128M" & """" & ",56,0,180,1,2, " & """" & "!105" & ITM_CD2 & """"

Printer.Print "TEXT 603,33," & """" & "ROMAN.TTF" & """" & ",180,1,7," & """" & ITM_CD1 & """"
Printer.Print "TEXT 185,33," & """" & "ROMAN.TTF" & """" & ",180,1,7," & """" & ITM_CD1 & """"
Printer.Print "PRINT 1,1"
'-----------
i = i + 1
Wend

Printer.EndDoc

=============== =

please help me to solve this.

Thanking You

Rajesh Babu A

[pacmanpk]

Hello,

Had you been able to print barcode labels with TSC printer using VBA? I am also trying to figure out how to print using VBA? Can you share your code?

Thanks