Tecnologia, programação e muito Visual FoxPro.

terça-feira, 8 de outubro de 2013

RE: [usuarios_fox] IMPRESION EN EPSON TERMICA - TICKETS

 

Este es un ejemplo de un ticket en una impresora Epson TM-IV (Termica), tambien me funciona en una impresora termica Bixolon. Espero que este ejemplo te sirva, tambien imprime una imagen (logo). Utilizo VFP9:
 
**** Inicio Programa
******* TICKETREMISION ******
SET console off
SET PRINTER ON
SET DEVICE TO PRINTER

@00,05 say iimagen bitmap ISOMETRIC SIZE 10,20
?
?
? ALLTRIM(inombre)  FONT 'ARIAL',10 STYLE 'B'
? ALLTRIM(IRFC) FONT 'ARIAL',10 STYLE 'N'
? ALLTRIM(idomicilio) FONT 'ARIAL',8 STYLE 'N'
? ALLTRIM(iciudad)+" "+ALLTRIM(iestado) FONT 'ARIAL',8 STYLE 'N'

? ALLTRIM(itelefonos) FONT 'ARIAL',8 STYLE 'N'
? ALLTRIM(iwebpage) FONT 'ARIAL',10 STYLE 'B'
?
? ifechahora FONT 'ARIAL',10 STYLE 'N'
? "NOTA: "+ALLTRIM(STR(INREMISION)) FONT 'ARIAL',12 STYLE 'N'
?
? "CANT      DESCRIPCION           PRECIO     IMPORTE" FONT 'ARIAL',8 STYLE 'N'
? "---------------------------------------------------------------------" FONT 'ARIAL',8 STYLE 'N'
SELECT TICKETREMISION
GO TOP
ren=0
icantcon=0
DO WHILE ! EOF()
   ren=Prow()+1
   @ren,00 say CANTIDAD picture("9999") FONT 'ARIAL',8 STYLE 'N'
   icantcon=icantcon+cantidad
   @ren,05 say DESCRIPCIO pict("!!!!!!!!!!!!!!!!!!!!")FONT 'ARIAL',8 STYLE 'N'
   @ren,20 say PRECIOU picture("9999.99") FONT 'ARIAL',8 STYLE 'N'
   @ren,28 say IMPORTE picture("9999.99") FONT 'ARIAL',8 STYLE 'N'
   SKIP
ENDDO
@Prow()+1,0 say "---------------------------------------------------------------------" FONT 'ARIAL',8 STYLE 'N'
@Prow()+1,0 say "   TOTAL (DLLS): " FONT 'ARIAL',14 STYLE 'B'
@Prow(),19 say ITOTALD picture("$9999.99") FONT 'ARIAL',14 STYLE 'B'
@Prow()+2,0 say "TOTAL (PESOS): " FONT 'ARIAL',14 STYLE 'B'
@Prow(),19 say ITOTALP picture("$9999.99") FONT 'ARIAL',14 STYLE 'B'
@Prow()+2,0 say "       TIPO DE CAMBIO:"  FONT 'ARIAL',10 STYLE 'N'
@Prow(),18 say ITIPOCAMBIO picture("999.9999") FONT 'ARIAL',10 STYLE 'N'
@Prow()+2,0 say IIF(ITIPOPAGO="T","PAGO CON TARJETA (VOUCHER)",IIF(ITIPOPAGO="E","PAGO EN EFECTIVO", IIF(ITIPOPAGO="C","CORTESIA","---------")))  FONT 'ARIAL',8 STYLE 'N'
@Prow()+1,0 say "TOTAL DE ARTICULOS(ITEMS): "+ALLTRIM(STR(icantcon)) FONT 'ARIAL',8 STYLE 'N'
@Prow()+1,0 say "LO ATENDIO (YOUR HOST): "+ALLTRIM(INOMBREMESERO) FONT 'ARIAL',8 STYLE 'N'
IF iautoriza<>" "
   @PROW()+2,0 say "AUTORIZA: "+ALLTRIM(iautoriza) FONT 'ARIAL',10 STYLE 'N'
endif
@PROW()+1,0 say "CLAVE DE INTERNET: "+iclaveint FONT 'ARIAL',10 STYLE 'N'
 
SET PRINTER OFF
SET PRINTER TO  && este es el que me hace sacar la impresion (EJECT)
SET DEVICE TO SCREEN
SET CONSOLE ON

 
**** Fin Programa
 

To: usuarios_fox@yahoogrupos.com.mx
From: alejandroosoriod@yahoo.com.mx
Date: Fri, 4 Oct 2013 22:43:36 +0000
Subject: [usuarios_fox] IMPRESION EN EPSON TERMICA - TICKETS

 
ESTIMADOS,

TENGO UN PROGRAMA QUE GENERA UN TICKET DE VENTA EL CUAL FUNCIONA PERFECTAMENTE CON UN MINI PRINTER, AHORA ESA MISMA IMPRESIÓN SE ENVÍA A UNA IMPRESORA EPSON TERMICA, NO ME RESPETA EL TAMAÑO DE LETRA, LAS NEGRILLAS, TAMPOCO EL CENTRAR LOS TEXTOS, UTILIZO EL CHR() PARA LAS DIFERENTES FUNCIONES DE IMPRESIÓN, CUAL PODRÍA SER EL PROBLEMA?

SALUDOS.


__._,_.___
Actividad reciente:
Comentarios, agregar archivos en el foro, observaciones o si deseas darte de baja avísame a: jamorquecho@hotmail.com

.

__,_._,___

Nenhum comentário:

Arquivo do blog