codigo de barras en un ticket
 

hola amigos. tengo un pequeño problema, como casi cada uno de los que entramos aqui. tengo que imprimir un codigo de barras en una impresora de ticket termica samsung srp-350 que por supuesto imprime codigo de barras.

en los codigos de control pone:

CONTROLCODIGODE CODIGOSHEXADECIMALFUNCION<GS> k m … NUL1D 6B m… NULimprime codigo de barras<GS> k m n …1D 6B m n …

he probado con esto:

var F: TextFile;
begin
AssignFile(F,'COM1');
Rewrite(F);
write(F,chr(29)+ chr(104)+ '1' + chr(00)); //codigo de barras
write(F, 'prueba');
writeln(F,chr(29)+ chr(86)+ '1'); //corta el papel
CloseFile(F);
end;

he probado con otras maneras pero no me sale lo que pongo en codigo de barras. he estado leyendo algo de generadores de codigos de barras. tengo que poner uno? como seria todo eso?

muchas gracias.

perdon lo habia puesto con tablas y ha salido mal el codigo de control

control de codigos pone:
1º <GS> k m … NUL
2º <GS> k m n …

esto en exadecimal seria:
1º 1D 6B m… NUL
2º 1D 6B m n …

bueno pues esto me pone que imprime codigo de barras

asi se entendera mejor.

gracias.

Buenas tardes,

Mirá, la verdad es que siempre trabajé con las Zebra's y al principio era un desastre la performance de las impresiones, eso hasta que encontré éstos componentes en torry:
http://www.torry.net/quicksearchd.ph...rint&Title=Yes

El problema por lo visto es que la impresora es via COM y si no tienes un driver bajo windows no te van a funcionar los componentes.

Siento no poder ser de mayor ayuda.

vamos a intentarlo, gracias de todas formas.:confused:

al final buscando he encontrado los drivers y la instalo como si fuera una laser y se imprime igual, cambiando la fuente, el tamaño con el printer.

gracias de todas formas.

hola rebollo75, perdona que me cuelque dfe tu hilo, pero me llego una impresora de esas que tienes la 350, y no se como empezar para imprimir un ticker con autocorte y todo eso, me podrías guiar un poco, de nuevo gracias.

hola manuel. espero que te silva de algo esto.

for i := 0 to Printer.Printers.Count - 1 do
cb1.Items.Add(Printer.Printers.Strings[i]);
Printer.PrinterIndex := 6;
printer.BeginDoc;
printer.Canvas.Font.Size:=22;
printer.Canvas.TextOut(1,1,'prueba');
printer.EndDoc;

AssignFile(F,'COM1');
Rewrite(F);
writeln(F,chr(29)+ chr(86)+ '1'); // para cortar el papel
CloseFile(F);

entra en www.bixolon.com y descargate los drivers. es facil

Otra duda que me ha surgido es que cuando imprime directamente por el puerto imprime bien, pero cuando lo hace por los drivers lo hace muy lento incluso tengo que salirme del programa para que lo imprima. alguien sabe de que puede ser?

muchas gracias.

Gracias lo vo a probar y te cuento