Centrar texto en un informe

Post Reply
User avatar
jmua
Posts: 96
Joined: Tue Oct 11, 2005 5:56 am
Contact:

Centrar texto en un informe

Post by jmua »

Hola chicos(as)
Esto haciendo un informe con TPRINTER y utilizo Cmsay para presentar los datos. Pero tengon problema no consiguo centrar un texto en el centro dle informe

Hago esto
PRINT oPrn PREVIEW
oPrn:SetPortrait() //Ponemos la impresion en vertical
PrnSetSize( 2100, 2970 ) //Tamaño de la pagina

DEFINE FONT oFnt1 NAME "Arial" SIZE 0,-7 BOLD OF oPrn
DEFINE FONT oFnt2 NAME "Arial" SIZE 0,-13 BOLD OF oPrn
DEFINE FONT oFnt3 NAME "Arial" SIZE 0,-15 BOLD OF oPrn
DEFINE FONT oFnt4 NAME "Arial" SIZE 0,-24 BOLD OF oPrn
DEFINE FONT oFnt5 NAME "Arial" SIZE 0,-10 ITALIC OF oPrn
DEFINE FONT oFnt6 NAME "Arial" SIZE 0,-10 BOLD OF oPrn
DEFINE FONT oFnt7 NAME "Arial" SIZE 0,-7 OF oPrn
DEFINE FONT oFnt8 NAME "Courier New" SIZE 0,-14 ITALIC BOLD OF oPrn
oPrn:Startpage()
oPrn:CmSay(27.50,10.50,Dtoc(date()) ,oFnt7 )
oPrn:CmSay(27.50,14.30,Reparto->NOMORI ,oFnt7 )
oPrn:CmSay(28.00,03.00,Substr(Agenc->CODTER,1,2)+' '+SubStr(Agenc->NOMAGE,1,21),oFnt7 )
oPrn:CmSay(28.00,09.80,Agenc->DIRECC ,oFnt7 )


.................

oPrn:CmSay(29.00,09.80,Reparto->NOMDES,oFnt8,,,,TA_CENTER )
Aqui quiero al final de la pagina centrar un texto pero no se como



.................
Endpage
End Print

Alguien pued decirme como lo hago?

Gracias
José Martin Uriarte
jmuarg@yahoo.es
User avatar
jmua
Posts: 96
Joined: Tue Oct 11, 2005 5:56 am
Contact:

Post by jmua »

Solucionado, en lugar de utilzat PAD_CENTER lo hacia con TA_CENTER

Gracias a todos
José Martin Uriarte
jmuarg@yahoo.es
Post Reply