Page 1 of 1

centrar texto en tickets térmicos

Posted: Fri Jun 14, 2019 2:54 pm
by edufloriv
Buenos dias amigos,

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 )
Pero no me queda bien:
ticket.png
ticket.png (32.47 KiB) Viewed 1847 times
¿ alguno tiene alguna función para realizar esto ?

Agradezco de antemano su valiosa ayuda.


Cordiales saludos,

Re: centrar texto en tickets térmicos

Posted: Fri Jun 14, 2019 3:49 pm
by dragancesu
It's simple
Look in documentation PRINT DATA


@ <Row> , <Col> PRINT [ DATA ] <xData>
[ TO <nToRow> , <nToCol> ]
[ FONT <cFontName> ]
[ SIZE <nFontSize> ]
[ BOLD ]
[ ITALIC ]
[ UNDERLINE ]
[ STRIKEOUT ]
[ COLOR <aColor> ]
[ RIGHT | CENTER ]
[ ANGLE <nAngleInDegrees> ]
In your case

@ row, 60 PRINT ALLTRIM(cQueText) CENTER // in case paper width is 120

Re: centrar texto en tickets térmicos

Posted: Fri Jun 14, 2019 7:35 pm
by edufloriv
Gracias amigo,

Quedo perfecto , saludos. :)
nuevo-tiket.jpg
nuevo-tiket.jpg (54.46 KiB) Viewed 1814 times

Att.