Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Impresión
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 19-12-2006
rebollo75 rebollo75 is offline
Miembro
 
Registrado: nov 2004
Posts: 46
Poder: 0
rebollo75 Va por buen camino
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.
Responder Con Cita
  #2  
Antiguo 19-12-2006
rebollo75 rebollo75 is offline
Miembro
 
Registrado: nov 2004
Posts: 46
Poder: 0
rebollo75 Va por buen camino
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.

Última edición por rebollo75 fecha: 20-12-2006 a las 20:30:38.
Responder Con Cita
  #3  
Antiguo 20-12-2006
Gydba Gydba is offline
Miembro
 
Registrado: ene 2004
Ubicación: Argentina
Posts: 673
Poder: 21
Gydba Va por buen camino
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.
__________________
Suerte
.: Gydba :.
Responder Con Cita
  #4  
Antiguo 20-12-2006
rebollo75 rebollo75 is offline
Miembro
 
Registrado: nov 2004
Posts: 46
Poder: 0
rebollo75 Va por buen camino
Wink

vamos a intentarlo, gracias de todas formas.
Responder Con Cita
  #5  
Antiguo 21-12-2006
rebollo75 rebollo75 is offline
Miembro
 
Registrado: nov 2004
Posts: 46
Poder: 0
rebollo75 Va por buen camino
Smile

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.
Responder Con Cita
  #6  
Antiguo 21-12-2006
Avatar de Manuel
Manuel Manuel is offline
Miembro
 
Registrado: may 2003
Ubicación: San Pedro de la Paz/Chile
Posts: 324
Poder: 21
Manuel Va por buen camino
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.
__________________
Manuel Muñoz L. Trabajando con delphi 7.0 , migrando sistema a Delphi XE8, matando BDE y pasando FIREDAC.
Responder Con Cita
  #7  
Antiguo 03-01-2007
rebollo75 rebollo75 is offline
Miembro
 
Registrado: nov 2004
Posts: 46
Poder: 0
rebollo75 Va por buen camino
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.

Última edición por rebollo75 fecha: 03-01-2007 a las 22:49:03.
Responder Con Cita
  #8  
Antiguo 03-01-2007
Avatar de Manuel
Manuel Manuel is offline
Miembro
 
Registrado: may 2003
Ubicación: San Pedro de la Paz/Chile
Posts: 324
Poder: 21
Manuel Va por buen camino
Gracias lo vo a probar y te cuento
__________________
Manuel Muñoz L. Trabajando con delphi 7.0 , migrando sistema a Delphi XE8, matando BDE y pasando FIREDAC.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Codigo de Barras CoCaInE Varios 2 25-11-2006 12:14:45
Codigo Barras novatix Impresión 1 17-02-2004 13:43:25
Codigo de barras CFPA86 Varios 2 31-10-2003 04:23:28
Codigo de Barras miguelb Varios 2 21-06-2003 01:18:01
Codigo de Barras noir Impresión 2 15-05-2003 02:40:11


La franja horaria es GMT +2. Ahora son las 14:23:11.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi