Estoy intentando imprimir en una impresora tipo Zebra de codigo de barras tiene un lenguage especial y no puedo imprimir el codigo de barras directamente, lo que hago es enviar los caracteres por el comando swrite La impresora esta conectada y si envio la orden copy /b ficheromuestra.prn COM1: lo imprime correctamente pero si lo que hago es desde el programa enviar estos caracteres no me funciona, avanza una etiqueta en blanco pero no imprime nada
****************************************** nFileID is int
sMyString is string
n_art is int=1
puerto is int=1
bLin is boolean=sOpen(puerto,256,256) /// 1 para COM1 , 2 para COM2
sParameter(1, 9600, 1, 8, 0)
IF bLin=True THEN
sWrite(puerto,"SIZE 85.1 mm, 73.1 mm"+CR) sWrite(puerto,"GAP 3 mm, 0 mm"+CR) sWrite(puerto,"SPEED 4"+CR) sWrite(puerto,"DENSITY 7"+CR) sWrite(puerto,"DIRECTION 0,0"+CR) sWrite(puerto,"REFERENCE 0,0"+CR) sWrite(puerto,"OFFSET 0 mm"+CR) sWrite(puerto,"SHIFT 0"+CR) sWrite(puerto,"SET PEEL OFF"+CR) sWrite(puerto,"SET CUTTER OFF"+CR) sWrite(puerto,"SET TEAR ON"+CR) sWrite(puerto,"CLS"+CR) sWrite(puerto,"BARCODE 487,559,"+"''128M'"+",102,0,180,3,6,"+"'!105'"+"98765432!1001"+" "+CR) sWrite(puerto,"CODEPAGE 850"+CR) sWrite(puerto,"TEXT 408,449,"+"'3' "+",180,1,1,"+" '987654321'" +" "+CR) sWrite(puerto,"TEXT 626,379,"+" '0' "+",180,19,12,"+" 'Texto de muestra 345678'" +" "+CR) sWrite(puerto,"TEXT 650,275,"+"'0'"+",180,18,12,"+"'estos son numeros solo 123'"+" "+CR) sWrite(puerto,"PRINT 1,1"+CR)
END sClose(1) |