Subrayado títulos por impresora

[rolando]

Buenas tardes y feliz Pascua para todos,

Estoy comenzando con la impresión y me interesa conocer la forma de (si se puede) de subrayar los títulos.

Como base, estoy utilizando los PRG testprint de los Samples pero no veo la forma de hacerlo.

Gracias.

Rolando

[Armando]

Rolando:

Todo el truco esta en definir los fonts que necesites (bold, italic, tamaño, underline, etc etc) y usarlos donde los necesites.

Podrías ser un poco más explicito para ver que podemos hacer ?

Saludos

[rolando]

Armando,

Gracias por responder.

Uso define para los fonts. ej.

DEFINE FONT oFont NAME "Arial" SIZE 0, -10 BOLD OF oPrn
DEFINE PEN oPen WIDTH 2 OF oPrn

Luego, con un bucle cuento las líneas y en medio del bucle imprimo así:

oPrn:cmSay( (nLinea), 1.1, aArray[f], oFont,,CLR_BLACK,,PAD_LEFT )

Lo que me interesa, es que la primer línea que sería una especie de título, estuviese subrayada. Por lo que decís, debería definir un font como underline, ¿como lo hago?, ¿agrego UNDERLINE sencillamente?.

Gracias.

Rolando

[vlmsoft]

Hola Rolando,

Solo tienes que definir dos fonts y poner en el parámetro correspondiente
la fuente con la que quieres imprimir:

DEFINE FONT oFont1 NAME "ARIAL" SIZE 0,-10 OF oPrn
* oFont2 -> Crea un tipo de letra con el atributo de subrayado
DEFINE FONT oFont2 NAME "ARIAL" SIZE 0,-10 UNDERLINE OF oPrn

Para imprimir la primera linea subrayada:

oPrn:CmSay( nLinea,1.00,"TITULO",oFont2 )

Para el resto de las lineas:

* Primero incrementas el valor de nLinea y después imprimes

oPrn:CmSay( nLinea,1.00,"LINEA...",oFont1 )

Saludos

[rolando]

Era sencillita la cosa, pero no lo sabía. Gracias

Rolando