Imprimir campo MEMO creado con TRichedit

[Loren]

compañeros, buenos días:

Tengo la necesidad de imprimir un texto que se creó con la clase TRichedit y que almaceno en un campo memo
¿Sabéis como?

Mi código es algo así:

Code: Select all | Expand

PRINT oPrn NAME "FACTURA"
 PAGE
  oprn:cmsay(7,5,'AQUÍ DATOS DEL CLIENTE',oFntTxtCaj1)
  oprn:cmsay(9,5,'AQUI DATOS DE LOS ARTICULOS',oFntTxtCaj1)
&& Y AQÚI QUIERO PONER LOS DATOS DEL CAMPO MEMO creado con la clase Trichedit
 ENDPAGE
ENDPRINT 
 

Mil gracias.
Un saludo a todos.
LORENZO.

[Loren]

He conseguido imprimir el campo MEMO pero SIN formato (sin cursiva, ni negrita, ni subrayado... etc...), solamente texto plano. De esta manera:

Code: Select all | Expand

oRtf:LoadAsRTF(gesfactu->desglosea)
oRtf:SetText( gesfactu->desglosea )
ctext:=oRtf:GetText()
nLines:=MlCount(ctext,83)
 y=11.5
 for nfor:=1 to nlines
  cline:=memoline(ctext,83,nfor)
  oPrn:cmsay(y,3.5,cline,oFntTxtCaj) ; y+=.5
 next
 

¿Nadie ha tenido la necesidad de imprimir un campo MEMO con formato?

Mil gracias.
LORENZO.

[Loren]

Compañeros, buenos días:

¿Nadie sabe nada al respecto?

Estoy pensando, como solución, guardar el contenido 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.

[Loren]

Compañeros, buenos días:

Agracederos vuestra participación sobretodo a Enrico y especialmente 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.

[cnavarro]

Compañeros, buenos días:

Agracederos vuestra participación sobretodo a Enrico y especialmente 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.

Loren, no tiremos aun la toalla
Has mirado el metodo Print del control
Estoy viendo si haciendo una funcion y cambiando los margenes se podria

[Loren]

Cristobal, buenos días:

Gracias por tu apoyo y sugerencia.
Realmente no tiro la toalla, el tema está en que el tiempo se me "echa encima" y tengo que cumplir lo plazos de entrega del proyecto a mi cliente.
No obstante, es un tema pendiente que me gustaría resolver para proyectos futuros o actualizaciones de este.

Lo que me extraña que nadie en este foro haya tenido la misma necesidad que yo. ¿Nadie ha tenido la necesidad de imprimir mediante TPRINT un campo memo pero dándole un valor añadido con texto enriquecido (para más vistosidad para el cliente)??

Gracias.
UN saludo.
LORENZO.

[SantaCroya]

Prueba a buscar en el foro RePrintBox

Un saludo.

[Marcelo Roggeri]

Hola buenas noches, hoy me veo en la necesidad de imprimir un texto enriquecido y hasta aca llegue buscando y no lo he logrado, queria saber si ustedes pudieron?
Les agradezco cualquier ayuda.
Saludos
Marcelo

[cnavarro]

Efectivamente como dice el compañero, has de usar RePrintBox o RePrintBox5

[Marcelo Roggeri]

Muchas gracias Cristobal por el dato, a partir de que versión esta disponible esta función RePrintBox, sabrás decirme?
Desde ya agradecido saber que se puede.
Saludos
Marcelo

[cnavarro]

Marcelo, si tienes la clase TRichEdit, lo tienes
La nueva clase TRichEdit5, a partir creo recordar de la version 16.04

[Marcelo Roggeri]

Muchas gracias Cristobal por el dato
Saludos cordiales desde Argentina
Marcelo