FiveTech Software tech support forums

... ENDDO

Lo que definitivamente necesito, es poder recuperar el texto con las modificaciones realizadas, ya sea cambios de tipos de Font, letras negritas u otros colores, ya que puede ser requerido para modificarse o imprimirse, una vez impreso, deber ser fiel copia de lo que se guarda en la DBF ...

... C. Navarro

Muchas gracias por responder.

Aplique tu codigo, como resultado solo actualizo lo escrito, todas las aplicaciones de Tipos de Font, negritas o colores, no los guarda, al recuperar el texto, pierde todo lo enriquecido.

Existe alguna forma que pueda mantener todo lo aplicado al codigo ...

Hola Amigos!
Estoy necesitando imprimir con TPrinter, un texto variable, que pueda contener palabras
remarcadas en negritas o con diferentes tamaños de fonts, o itálica o subrayado.
Es posible realizarlo?
O bien, que alternativa debería utilizar....

Muchas gracias!!!

... es que escribe directamente el archivo en disco y no necesitas tener instalado Excel y es muchísimo mas rápido que atacarlo con TAutoOle.

Saludos
Horacio, gracias. El problema es que no me hace caso a negritas y tamaños. A ti te funcionan?

Gracias.

Enviado desde mi LG-H860 mediante Tapatalk

... No he logrado que tome en cuenta los formatos y las distintas letras.
Alguien tendría una sugerencia.
Dejo el código que si funciona, sin negritas y nada que deseo poner.
Saludos y gracias.
LOCAL oXLS       XLS oXLS FILE ".\Reporte.xls" AUTOEXEC      &nbsp ...

Así he logrado imprimir en negritas con TDOSPRN en la térmica
oprn:Say(1,10,CHR(27)+"E1"+"NEGRITAS"+CHR(27)+"E0") 

Para caracteres más grandes he intentado con CHR(14), con CHR(27)+"W1" ,oPrn:Command("14") y nada

Alguien tiene como.

Gracias

Saludos,

Adhemar

... Tras varios días y ante la imposibilidad de poder imprimir con la clase TPRINT el campo memo enriquecido (con subrayados, italic, negritas...), he tenido que volver a clásico memo multiGET e imprimir como siempre.

Sin más, un saludo.
LORENZO.

Loren, no tiremos aun la toalla
Has ...

... a Cristobal Navarro que se interesó particularmente.

Tras varios días y ante la imposibilidad de poder imprimir con la clase TPRINT el campo memo enriquecido (con subrayados, italic, negritas...), he tenido que volver a clásico memo multiGET e imprimir como siempre.

Sin más, un saludo.
LORENZO.

... del campo MEMO en un archivo .RTF para posteriormente imprimir su contenido usando TPrint, con el mismo tratamiento de un campo Memo y respetando el texto enriquecido (negritas, cursivas, subrayado... etc...)

Antonio, gurú de FIVEWIN, una ayuda, por favor!!

Mil gracias.
Un saludo.
LORENZO.

... aCols[2]:Value,1,3) = " ", oFont, oWnd:oFont) ,) } ya que al final al llegar a la cuenta 2020-000-000-000 PROV PEND POR PAGAR me pinta todo de negritas en lugar de cuentas acumulativas, desde las primeras cuentas de mayor no hay problema, porque son de 4 niveles, pero se puede configurar otra ...

... aCols[2]:Value,1,3) = " ", oFont, oWnd:oFont) ,) } ya que al final al llegar a la cuenta 2020-000-000-000 PROV PEND POR PAGAR me pinta todo de negritas en lugar de cuentas acumulativas, desde las primeras cuentas de mayor no hay problema, porque son de 4 niveles, pero se puede configurar otra ...

... aCols[2]:Value,1,3) = " ", oFont, oWnd:oFont) ,) } ya que al final al llegar a la cuenta 2020-000-000-000 PROV PEND POR PAGAR me pinta todo de negritas en lugar de cuentas acumulativas, desde las primeras cuentas de mayor no hay problema, porque son de 4 niveles, pero se puede configurar otra ...

... a lo que tengo,asi que no me queda de otra que dejarlo por mientras asi...

Gracias de nuevo Francisco y por el detalle del pintado de negritas, que no se me habia ocurrido de esta manera, que pensaba agregarle un campo mas de niveles 1,2,3, y 4 con status de A y D y que la A me pinte de ...

... oHoja:Cells( 1, nFor ):Font:Size := 16 // DETERMINA TAMAÑO DE LETRA A USAR EN UNA CELDA
*** oHoja:Cells( 1, 1 ):Font:Bold := .t. // PONE EN NEGRITAS VALOR DE UNA CELDA
*** oHoja:Cells( 1, 1 ):Font:ColorIndex := 5 // COLOR PREESTABLECIDO DE EXCEL DEL CONTENIDO DE LA CELDA
*** oHoja:Cells( 3, 2 ...

... LA HOJA
* oHoja:Cells( 1, 1 ):Font:Size := 16 // DETERMINA TAMAÑO DE LETRA A USAR EN UNA CELDA
* oHoja:Cells( 1, 1 ):Font:Bold := .t. // PONE EN NEGRITAS VALOR DE UNA CELDA
* oHoja:Cells( 1, 1 ):Font:ColorIndex := 5 // COLOR PRE-ESTABLECIDO DE EXCEL PARA EL CONTENIDO DE LA CELDA
* oHoja:Cells( 3, 2 ...