Centrar un texto con TPrinter

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

[thefull]

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

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