topic-26032

Posts: 196

Joined: Tue Jul 01, 2008 06:34 PM

FONT en TMU-220
Posted: Thu Apr 04, 2013 12:40 AM

Hola

Tengo el siguiente problema:

Uso este codigo con el metodo PRINT

      PRINT oPrnCmp NAME &quot;Impresion de Tiket&quot; TO &quot;TICKETS&quot;

        DEFINE FONT oFntArial NAME &quot;Arial&quot; SIZE 0, -8 OF oPrnCmp
        DEFINE FONT oFntArial1 NAME &quot;DRAFT 12CPI&quot; SIZE 0, -8 OF oPrnCmp
        DEFINE FONT oFntArial2 NAME &quot;Arial&quot; SIZE 0, -12 OF oPrnCmp

......
......
oPrnCmp:Say( StepRow, StepCol, "Dato uno",oFntArial )

Como uso los Fonts para los tipos de letra, estos no salen muy claros pero me da 65 carateres de impresion por linea.

Si uso el comando Say() sin hacer referencia al Font

        oPrnCmp:Say( StepRow, StepCol, &quot;Dato uno&quot;)

Imprime el texto mucho mejor, mas claro pero solo 33 caracteres por linea

Con la TDOSPRN() no me da problema (40 caracteres y bien claro), pero como está sobre un puerto LPT y en otro equipo no puedo compartir la impresora, entonces me veo en la necesidad de imprimir con el metodo PRINT y asi puedo usar compartida la impresora.

Existe alguna forma de usar la PRINT donde la impresion sea clara y por lo menos me dé 40 caracteres como con la TDOSPRN(), o algo mejor. existe algun FONT que emule al comprimido de DOS?

Gracias

Luis Ponce

joseluisysturiz

Posts: 2064

Joined: Fri Jan 06, 2006 09:28 PM

Re: FONT en TMU-220
Posted: Thu Apr 04, 2013 02:20 AM

Porque dices que no puedes compartir la impresora.? "pero como está sobre un puerto LPT y en otro equipo no puedo compartir la impresora, entonces me veo en la necesidad de imprimir con el metodo PRINT y asi puedo usar compartida la impresora.", si es por el puerto LPT, puedes usar dependiendo del window el comando bajo DOS net use LPTn \\nombre_pc\nombre_imp/persistent:yes y asi puedes acceder a la impresora como si fuese local, saludos...

Dios no está muerto...

Gracias a mi Dios ante todo!

Bayron

Posts: 883

Joined: Thu Dec 24, 2009 12:46 AM

Re: FONT en TMU-220
Posted: Thu Apr 04, 2013 03:33 AM

Haz intentado con Lucida Console

=====>

Bayron Landaverry
xBasePHP.com
(215)2226600 Philadelphia,PA, USA
MayaBuilders@gMail.com
Guatemala

FWH25.06--Harbour 3.0.0--BCC7.7--UEstudio 10.10
Windows 10

FiveWin, One line of code and it's done...

Francisco Horta

Posts: 845

Joined: Sun Oct 09, 2005 05:36 PM

Re: FONT en TMU-220
Posted: Thu Apr 04, 2013 02:40 PM

Luis,
Opino igual que jose luis, y si quieres un font prueba con "COURIER"
saludos
paco

____________________

Paco

acuellar

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

Re: FONT en TMU-220
Posted: Thu Apr 04, 2013 03:30 PM

Luis, lo mas aconsejable es imprimir en texto es mas rápido y claro.

Hacer lo siguiente:
- Compartir la impresora sin importar en que puerto este (LPT1 o USB)
- Generar el reporte con TDOSPRN()
- Enviarlo con PrintFileRaw()

Ej:

Code (fw): Select all Collapse

 oPrn:=TDosPrn():New( "C:\Reporte.txt )"
 oPrn:Say(1,1,PADC("TITULO",41) )
 oPrn:Say(18,0,CHR(27)+CHR(105) ) //Corte automático
 oPrn:End()
 PrintFileRaw( "\\NOMBPC\TMU220","C:\Reporte.txt")  //Nombre de PC y del recurso compartido.

Por defecto es condensado.

Saludos,

Adhemar

Saludos,

Adhemar C.

LuisPonce

Posts: 196

Joined: Tue Jul 01, 2008 06:34 PM

Re: FONT en TMU-220
Posted: Fri Apr 05, 2013 01:39 AM

GRACIAS

Me parece una opcion el PrintFileRaw() que aconseja ademar, lo probaré.

Jose Luis, tambien pense en la solucion del NET USE ...., esto lo hacia con mis sistemas en DOS, sucede que la impresora TMU esta instalada en un XP en su puerto LPT1, y todos los otros equipos tienen el W7, donde le doy el comando "NET USE...." ??? usualmente lo hacia en XP en el autoexec.nt de la carpeta c:\windows\system32, en W98 autoexec.bat... pero en el Seven es posible hacer eso?

Creo que no me explique bien...

Que letra (FONT) me dá 40 espacios/caracteres en la impresion de tickets con la clase PRINT ?

Luis Ponce

FiveTech Support Forums

Continue the discussion