Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

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

 
 
Herramientas Buscar en Tema Desplegado
  #11  
Antiguo 19-04-2004
Nose Nose is offline
Miembro
 
Registrado: abr 2004
Ubicación: Chile
Posts: 66
Poder: 23
Nose Va por buen camino
Thumbs up

Bueno gracias a todos por tratar de ayudar :-)

lo sulucioné de la sgte. manera para el código de barra:

Código:
  
  Writeln ( lst, #$1B + '@'  );
  Write ( lst, #$1D + 'h' + #$40  ); //  Setea el alto
  Write ( lst, #$1D + 'w' + #$2  );  //  Setea el tamaño del ancho a 5
  Write ( lst, #$1D + 'H' + #$2  );  //  Seleccion la posición a imprimir
  // codigo de barrras CODE39 -> ese es el tipo #$4
  Write ( lst, #$1D + 'k' + #$4 );   //  Imprime codigo de barras
  Write ( lst, '1234567890123' + #$0 ); // siempre acaba con nulo
  Write ( lst, #$A  ); // limpia la justificación
Saludos
Responder Con Cita
 



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


La franja horaria es GMT +2. Ahora son las 23:57:42.


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