Page 1 of 1
Centrar un texto con TPrinter
Posted: Thu May 03, 2007 3:20 pm
by softruz
Muy buenas, estoy interesado en centrar un texto con TPRINTER,sabiendo el texto a centrar, el font del texto y si la impresion es vertical o horizontal.
Gracias.
Un Saludo.
Re: Centrar un texto con TPrinter
Posted: Thu May 03, 2007 4:54 pm
by thefull
softruz wrote:Muy buenas, estoy interesado en centrar un texto con TPRINTER,sabiendo el texto a centrar, el font del texto y si la impresion es vertical o horizontal.
Gracias.
Un Saludo.
Bajate las clase TImprime y TUtilPrn, estan por aqui en el foro de utilidades,
y ahi tienes el codigo fuente que realiza eso y mucho mas...
Posted: Thu May 03, 2007 10:21 pm
by sysctrl2
PRINT oPrn NAME "Reporte de nomina semanal ..." PREVIEW
DEFINE FONT oFnt1 NAME "Arial" SIZE 0, -08 OF oPrn bold
PAGE
oPrn:CmSay(1, 01, 'TEXTO NORMAL', oFnt1 )
_centraCm(1, 'TEXTO CENTRADO', oPrn, oFnt1 )
ENDPAGE
ENDPRINT
FUNCTION _centraCm(nRen,cValor, oPrn, oFont )
oPrn:CmSay(nRen,0,cValor,oFont,oPrn:nHorzRes,,,2 )
RETURN (nil)
saludos.