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,"LOOK OPTICALS"
TEXT 171,186,"ROMAN.TTF",180,1,8,"LOOK OPTICALS"
TEXT 586,160,"ROMAN.TTF",180,1,7,"Bigboss"
TEXT 170,160,"ROMAN.TTF",180,1,7,"Bigboss"
TEXT 584,135,"ROMAN.TTF",180,1,7,"Rs :"
TEXT 168,135,"ROMAN.TTF",180,1,7,"Rs :"
TEXT 546,138,"ROMAN.TTF",180,1,9,"1456/-"
TEXT 130,138,"ROMAN.TTF",180,1,9,"1456/-"
TEXT 611,117,"ROMAN.TTF",90,1,7,"RCHW"
TEXT 195,117,"ROMAN.TTF",90,1,7,"RCHW"
BARCODE 602,93,"128M",56,0,180,1,2,"!10512345678"
BARCODE 186,93,"128M",56,0,180,1,2,"!10512345678"
TEXT 603,33,"ROMAN.TTF",180,1,7,"12345678"
TEXT 187,33,"ROMAN.TTF",180,1,7,"12345678"
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.TextMatrix(i, 1))
MRP1 = Trim(grid.TextMatrix(i, 4))
CST1 = Trim(grid.TextMatrix(i, 18))
ITM_CD1 = Trim(grid.TextMatrix(i, 0))
'--------
i = i + 1
If i > crow Then GoTo END_PRNT1
itm2 = Trim(grid.TextMatrix(i, 1))
MRP2 = Trim(grid.TextMatrix(i, 4))
CST2 = Trim(grid.TextMatrix(i, 18))
ITM_CD2 = Trim(grid.TextMatrix(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