Como puedo hacer para imprimir en una imp. de punto en
forma rapida, es decir que haga una sola pasada. Ya probe
con:
open "LPT1:" for output as #1
Marcha barbaro pero, no puedo agrandar o achicar la letra,
ni tampoco que la haga negrita.
Si alguien tiene idea de esto cualquier cosa me sirve
Gracias
RESPONDE JAVIER BALKEN
======================
Cuando trabajas directamente con la impresora necesitas enviarle códigos de
escape para que ésta haga cosas como negritas, cursivas, cubrayado, etc.
Ejemplo.
Para activar la impresión Enfatizado, debes imprimir ESC + E, donde ESC es
el código ASCII # 27.
Para desactivar las negritas, debes enviar el comano ESC + F.
Para activar el texto condensado, debes enviar el caracter ASCII # 15, y
para desactivarlo, el ASCII # 14.
Dim ESC As String
Dim EnfatizadoON As String
Dim EnfatizadoOFF As String
Dim CondensadoON AS String
Dim CondensaoOFF As string
ESC = Chr(27)
EnfatizadoON = ESC & "E"
EnfatizadoOFF = ESC & "F"
Open "LPT1:" For Output As #1
Print #1, "Este es un texto normal. ";
Print #1, EnfatizadoON & "Texto enfatizado. " & EnfatizadoOFF;
Print #1, "De nuevo, texto normal"
Print #1, "Texto normal. ";
Print #1, CondensadoON & "Texto condensado. " & CondensadoOFF
Print #1, "Ahora, texto normal"
Close #1
Los caracteres de escape pueden variar de una impresora a otra. Aunque por
otro lado, hay algunos standars, como el juego de comandos tipo EPSON. Las
impresoras más modernas tienen un juego de comandos más avanzado.
Busca en internet por ESC Codes.
http://www.fidcal.com/printercodes/
http://www.lprng.com/DISTRIB/RESOURCES/PPD/epson.htm
http://webpages.charter.net/dperr/links/esc_p2.htm
http://www.blizzard.u-net.com/escp2.html
También, tienes que ver una tabla de códigos ASCII, para que puedas ver, por
ejemplo, que ESC es el código ASCII # 27. Esto es necesario para cuando se
usen las referencias de arriba saber como programar los comandos.
http://www.neurophys.wisc.edu/www/comp/docs/ascii.html
http://www.cdrummond.qc.ca/cegep/informat/Professeurs/Alain/files/ascii.htm
http://www.ascii.cl/
               (
geocities.com/es/ensolva/Descargas)                   (
geocities.com/es/ensolva)                   (
geocities.com/es)