Uso esta función para tratar de centrar texto en la impresión de tickets térmicos:
Code: Select all
*>----------------------------------------------------------------------<*
*>----------------------------------------------------------------------<*
*>----------------------------------------------------------------------<*
FUNC ColCentra(cQueText)
LOCAL nLenText , nDotText , nDotInic
cQueText := ALLTRIM(cQueText)
nLenText := LEN( cQueText )
nDotText := nLenText
nDotInic := INT( (70 - nDotText) / 2 )
RETURN( nDotInic )
¿ alguno tiene alguna función para realizar esto ?
Agradezco de antemano su valiosa ayuda.
Cordiales saludos,