Hace como mil años, yo imprimía (desde FOX DOS) en impresoras matriciales
Epson LX-300 asi:
private legal,largoA4,ancho12cpi,inicializar,linporpulg,hpic
legal = chr(27)+'&'+'l'+'3'+'A'
largoA4 = chr(27)+'&'+'l'+'5'+'A'
ancho12cpi = chr(27)+'('+'s'+'12'+'H'
inicializar = chr(27)+'E'
linporpulg = chr(27)+'&'+'l'+'6'+'D'
hpic = '99,999,999.99'
select linvoice
do while vueltas <= copias
@ prow(),pcol() say inicializar
@ prow(),pcol() say linporpulg
@ prow(),pcol() say legal
@ prow(),pcol() say ancho12cpi
if ! inlist(klase,1,7) && si es nota de credito
@ 0,90 say 'NOTA DE CREDITO'
else
@ 0,90 say 'FACTURA'
endif
etc, etc, etc
Como ves, ponía el código de inicialización en una variable (inicializar) y
luego se lo mandaba en cada una de las vueltas (habia que imprimir 3 copias
de la factura), con la primera línea. Luego le mandaba los otros código para
el tipo de letra y listo.
Los códigos salen del manual de la impresora Epson LX-300. Siempre empiezan
con el código de escape+ los símbolos apropiados
Ojo, tenés que usar el viejo @ fila,columna en cada línea
Para eso también tenés que crear una impresora genérica en el Windows y
usarla para imprimir.
¿Es eso lo que necesitás?
Rafael Copquin
----- Original Message -----
From: Marcelo Hacker (LISTAS)
To: gufa List Member
Sent: Thursday, May 03, 2007 2:26 AM
Subject: [spam] [gufa] [Off topic - VB6] Impresion matricial (plain text)
desde Visual Basic 6.0
Hola Pablo,
Lo de Prueba y Error, es lo que estuvimos haciendo nosotros! Hay muchas
cosas para testear en internet, pero en la práctica pocas son las que en
realidad dan resultado.
Me refiero a que la lógica y el sentido común dicen que debería funcionar,
pero en la práctica NO FUNCIONA!
Ya probamos con 3 impresoras distintas (por si era un tema de hardware) y en
3 pc's distintas!
Aparentemente el tema está en que en algún lado los caracters de escape se
"filtran" antes de llegar a la impresora y por ello no se configura
correctamente.
Por eso es que preguntabamos por un ejemplo de alguien que lo esté
utilizando en estos momentos en produccion!
Desde ya 1.000.000 de gracias a vos y a todos los que están colaborando con
nosotros!
Saludos,
Marcelo
----- Original Message -----
From: Marcelo Hacker (LISTAS)
To: gufa List Member
Sent: Wednesday, May 02, 2007 10:45 AM
Subject: [gufa] [Off topic - VB6] Impresion matricial (plain text) desde
Visual Basic 6.0
Gente,
Supongo que este problema tambien se presenta con el VisualFox, por ello
hago la consulta acá.
Se nos presentó un problema que aparentemente debería ser una pavada... pero
por lo que venimos renegando hace unos días y lo que hemos encontrado en
internet (MSDN/GOOGLE/ETC), parece que no es tan sencillo.
Simplemente necesitamos imprimir en modo texto a la usanza del viejo
Clipper, Fox, etc. a una impresora LX-300 (o una FX-890) y no por medio del
objeto printer de Visual.
Ya intentamos la apertura del puerto, funcionó bien, pero no respeta los
saltos de hoja en forma correcta, ni el Tear On de la impresora.
Si alguno de uds. ya lo tiene resuelto, les agradeceria si pudiesen mandar
un pequeño recorte de ejemplo del código (principalmente la inicialización y
cierre del documento o archivo de impresión).
Desde ya 1000 gracias por adelantado.
Marcelo Hacker
