Alguien Sabe ¿Como Imprimir Imagenes desde codigo en Impresoras de matriz LX-300 / + / +II y FX880 ???

[GOOD_FOX]

Hola Ke Tal...

Tengo un Programa Punto de Venta el Cual Imprime Ticket's mediante
Codigo

(el codigo Ejemplo lo subí a la seccion de Archivos IMPRIME
TICKET.ZIP)

Este codigo lo uso para las Epson-LX300 / + / +II / FX-880

Pero Ahora surge la necesidad, de imprimir una imagen, Especificamente
el Logo de la Empresa en el Ticket,

Alguien de ustedes sabe como imprimir imagenes mediante codigo, o como
puedo solucionar Esto....?

Voy a Revisar los codigos de impresion para las Epson, e investigaré
si llego a realizarlo subiré el ejemplo.


Saludos


Good_Fox

[Daniel Sánchez]

lo unico que tendrias que hacer es poner el siguiente say de la siguiente manera

@ tufila, tucolumna SAY rutaynombredetuimagen BITMAP ;

SIZE 1.923,4.800 ;

STRETCH ;

STYLE "T"

con eso puedes imprimir sin problemas mediante codigo

--
Daniel Sánchez Escobar
Investigación y Desarrollo
Reset Software & Sistemas
Móvil 044-949398047
Trujillo - Perú

[Josep Maria Picañol]

Hola,

En www.portalfox.com había (almenos antes) un completo artículo creo
que escrito por Luís Maria Guayan sobre eso, muy detallado y completo.
Ahora no sé si estarà, si no és así me lo dices y miraria de buscarlo.

Saludos Cordiales.

Josep Mª Picañol
http://www.gestdss.com
j...@gestdss.com

[Intel Man]

Hola, pero no es necesario tanta cosa para imprimir una imagen en un prg, basta con:

@x,y say "imagen.jpg" bitmap

Eso es todo :)

Saludos


> Date: Wed, 30 Sep 2009 09:41:02 -0700
> Subject: [Mundo Visual FoxPro] Re: Alguien Sabe ¿Como Imprimir Imagenes desde codigo en Impresoras de matriz LX-300 / + / +II y FX880 ???
> From: sety...@gmail.com
> To: mundovis...@googlegroups.com

[GOOD_FOX]

ke Tal....

Gracias por las respuesta... enverdad ke era sencillo... pero surge
un problema... :D

Al momento de terminar de Imprimi la Imagen, la impresora realiza un
salto de línea, y a continuación imprime mi ticket, pero mis comando
de configuracion de fuente e incializacion de impresora ya no
funcionan :S

me imprime el texto... muy grande...

Alguna sugerencia..?? :D


************ Esto es lo que tengo...

PARAMETERS LCCOMENT,MCCREDITO,MCESREIMP
LCRUTA_IMPRESORA = "'"+ALLT(CONFIG.RUTATK)+"'"
Wait window LCRUTA_IMPRESORA NoWait
SET CONSOLE OFF
SET PRINTER TO NAME &LCRUTA_IMPRESORA

*Aqui establesco en Variables datos que me sirven para el ticket.. :D
*y luego continuo

Set Device to Printer
@1,1 say "logos.bmp" BITMAP


*Se inicializa el codigo de Impresion de Tiket's y fuente
??? CHR(27)+CHR(48)+CHR(27)+CHR(67)+CHR(44)
??? CHR(18)+CHR(27)+CHR(77)+CHR(15)

*Se imprime el margenSuperior
FOR I=1 TO LNMARGEN_SUP
??? CHR(10)+CHR(13)
ENDFOR

y sigo con todo mi Procedimiento...

********************************************** FIN



Saludos

Good_Fox

[di por favor, luego gracias]

GOOD_FOX amigo fiajate que no tengo manual de una fiscal tm u950,
sabes tu cual es el comando ascii para imprimir el nombre de la
impresa en ticket mas grande, tamaño a 12 o 14 cpi