FONT en TMU-220

[LuisPonce]

Hola

Tengo el siguiente problema:

Uso este codigo con el metodo PRINT

PRINT oPrnCmp NAME "Impresion de Tiket" TO "TICKETS"

DEFINE FONT oFntArial NAME "Arial" SIZE 0, -8 OF oPrnCmp
DEFINE FONT oFntArial1 NAME "DRAFT 12CPI" SIZE 0, -8 OF oPrnCmp
DEFINE FONT oFntArial2 NAME "Arial" 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, "Dato uno")

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

[joseluisysturiz]

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...

[Bayron]

Haz intentado con Lucida Console

[Francisco Horta]

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

[acuellar]

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: Select all

 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

[LuisPonce]

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 ?