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