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
Centrar texto en un informe
Centrar texto en un informe
José Martin Uriarte
jmuarg@yahoo.es
jmuarg@yahoo.es
Solucionado, en lugar de utilzat PAD_CENTER lo hacia con TA_CENTER
Gracias a todos
Gracias a todos
José Martin Uriarte
jmuarg@yahoo.es
jmuarg@yahoo.es