Club Delphi  
    Paypal   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 16-04-2004
Avatar de guillotmarc
guillotmarc guillotmarc is offline
Miembro
 
Registrado: may 2003
Ubicación: Huelva
Posts: 2.638
Poder: 26
guillotmarc Va por buen camino
Hola.

En Basic, &H significa que el numero a continuación está en decimal. Por lo que CHR$(&H1B); equivale a CHR$(27); (1B es 27 en Hexadecimal).

Dicho esto, la línea

Código:
 
PRINT #1, CHR$(&H1B);"a";CHR$(1);
Equivale a

Código:
Writeln ( f, #27 + 'a' + #1 );
(Habías traducido mal CHR$(1) que equivale a #1).

Espero que estas indicaciones, te ayuden a traducir el código VB. En lo que respecta al Código Barras, la verdad es que tampoco entiendo la notación en que viene.

Saludos.
__________________
Marc Guillot (Hi ha 10 tipus de persones, els que saben binari i els que no).
Responder Con Cita
  #2  
Antiguo 16-04-2004
Avatar de guillotmarc
guillotmarc guillotmarc is offline
Miembro
 
Registrado: may 2003
Ubicación: Huelva
Posts: 2.638
Poder: 26
guillotmarc Va por buen camino
Aunque en el código de barras, parece haber olvidado un 0 al final. Y m lo enviaría como nº y no como el ASCII del nº. Lo que no sé es si también es necesario para los nº que forman el código.

O sea, en lugar de :

Writeln ( f, #29 + #107 + '4' + '12345678' );

Probaría :

Writeln ( f, #29 + #107 + #4 + '12345678' + #0 );

O también (si no funciona) :

Writeln ( f, #29 + #107 + #4 + #1 + #2 + #3 + #4 + #5 + #6 + #7 + #8 + #0 );

Saludos.
__________________
Marc Guillot (Hi ha 10 tipus de persones, els que saben binari i els que no).
Responder Con Cita
  #3  
Antiguo 16-04-2004
Avatar de jachguate
jachguate jachguate is offline
Miembro
 
Registrado: may 2003
Ubicación: Guatemala
Posts: 6.254
Poder: 30
jachguate Va por buen camino
solo añadir, que me parece que es posible no tener que convertir los valores hexadecimales a decimales... ya que también debiera valerse un #$1B por ejemplo, en lugar de #27... no tengo delphi a mano, para probarlo, pero debiera funcionar y podria eviatar la conversión.

Hasta luego.

__________________
Juan Antonio Castillo Hernández (jachguate)
Guía de Estilo | Etiqueta CODE | Búsca antes de preguntar | blog de jachguate
Responder Con Cita
  #4  
Antiguo 16-04-2004
Julià T. Julià T. is offline
Miembro
 
Registrado: may 2003
Ubicación: en el teclado
Posts: 314
Poder: 24
Julià T. Va por buen camino
Creo que la impresora citada tiene drivers para windows.
No sé si utilize la TM88 o TMT88
Responder Con Cita
  #5  
Antiguo 16-04-2004
Nose Nose is offline
Miembro
 
Registrado: abr 2004
Ubicación: Chile
Posts: 66
Poder: 23
Nose Va por buen camino
Cita:
solo añadir, que me parece que es posible no tener que convertir los valores hexadecimales a decimales... ya que también debiera valerse un #$1B por ejemplo, en lugar de #27... no tengo delphi a mano, para probarlo, pero debiera funcionar y podria eviatar la conversión.
No se me había ocurrido usar #$, pensé que no se podía con Delphi

Cita:
Creo que la impresora citada tiene drivers para windows.
No sé si utilize la TM88 o TMT88
Sí, si tiene Drivers para todos los sist. Op. de windows

Salu2
Responder Con Cita
  #6  
Antiguo 17-04-2004
Julià T. Julià T. is offline
Miembro
 
Registrado: may 2003
Ubicación: en el teclado
Posts: 314
Poder: 24
Julià T. Va por buen camino
Cita:
Sí, si tiene Drivers para todos los sist. Op. de windows
entonces le puedes asignar un tipo de fuente que se llama 'control' que combinado con el texto tendria que realizar la misma funcion que $1B
Responder Con Cita
  #7  
Antiguo 17-04-2004
Nose Nose is offline
Miembro
 
Registrado: abr 2004
Ubicación: Chile
Posts: 66
Poder: 23
Nose Va por buen camino
Hola, Julià T.

Cita:
entonces le puedes asignar un tipo de fuente que se llama 'control' que combinado con el texto tendria que realizar la misma funcion que $1B
Eso no sé cómo hacerlo, es más intenté al comienzo usar la unit printer, pero no me resultaba la mayoría de las cosas, cómo el alineamiento de líneas, fuentes, etc.
Responder Con Cita
  #8  
Antiguo 18-04-2004
Julià T. Julià T. is offline
Miembro
 
Registrado: may 2003
Ubicación: en el teclado
Posts: 314
Poder: 24
Julià T. Va por buen camino
Puede hacer una prueba sencilla para ver si funciona en esta impresora

Asignas como impresora predeterminada la epson tm88iii (para que salgan los tipos de fuentes própios de esta impresora)
Abres el wordpad, escribes texto y en algún sitio colocas el texto con la fuente control. Le das a imprimir y compruebas el resultado.

En esta impresora no lo probé nunca de hacerlo así, ya que utilizé para esta impresora el TRichEdit, el Qreport, y el Rave, con lo que me ahorré un montón de código

Tan solo añadir que lo afecta sorprendentemente a esta impresora es la combinación de fuente y tamaño a la hora de imprimir
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


La franja horaria es GMT +2. Ahora son las 18:13:51.


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