Gente
Quiero imprimir un texto en la mitad de una hoja A4 apaisada
Hago asi:
PRINT oPrn NAME "ROTULO" PREVIEW
cFont := "Arial"
oPrn:SetPage(9)
oPrn:SetLandscape()
DEFINE FONT oFont NAME cFont SIZE 0,45 BOLD OF oPrn
cCad1:="HIPOLITO SAMUEL BENDEZU CUADROS"
aCoord:= oPrn:Cmtr2Pix( 29.7, 21 )
nfilpix:=int(aCoord[2]/2) // mitad de fila en pixeles
nfilmm:= nfilpix * 25.4 / oPrn:nLogPixelX() // convierto los pixeles en mm
nfilcm := nFilmm/10 // convierto los mm en cm.
PAGE
oPrn:CmSay(nfilcm,1,cCad1, oFont,,,0)
¿Me falta hallar el ancho del texto para que éste salga centrado y
si el texto tiene muchas letras, poder cambiar el tamaño del texto hasta
que encaje en una sola linea, me dejo entender ?
ENDPAGE
ENDPRINT
oFont := Nil
oPrn := Nil
Espero sus comentarios
Gracias
Arturo