Subrayado títulos por impresora

Post Reply
User avatar
rolando
Posts: 593
Joined: Sat May 12, 2007 11:47 am
Location: San Nicolás - BA - ARGENTINA

Subrayado títulos por impresora

Post by 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 :D
User avatar
Armando
Posts: 2479
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México
Contact:

Post by 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
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
User avatar
rolando
Posts: 593
Joined: Sat May 12, 2007 11:47 am
Location: San Nicolás - BA - ARGENTINA

Post by 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 :D
vlmsoft
Posts: 36
Joined: Thu Jun 28, 2007 3:43 pm
Location: Madrid

Post by 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
User avatar
rolando
Posts: 593
Joined: Sat May 12, 2007 11:47 am
Location: San Nicolás - BA - ARGENTINA

Post by rolando »

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

Rolando :D
Post Reply