Imprimir rtf

[sscom]

Hola, saludos a todos, como puedo imprimir un campo rtf para que salga
bien en la impresion y sin los caracteres que se graban en el campo ?
es un campo memo, la impresion no tiene que ser en color o con el
formato rtf, solo que se vea legible en la impresion, gracias por su
atencion y ayuda.

[Alfonso Arce Silvestre]

Podrías hacerlo mediante el reporteador de VFP, o enviando el contenido a Microsoft Word, dandole formato al texto

[Adolfo Leon Quintero Hoyos]

Amigo mira aqui

http://foxypreviewer.codeplex.com/

Adolfo

[Allan Raúl Acuña]

Mis saludos antes que nada.

Prueba este codigo

---------------------------------------------------------------------

select * from micursor into cursor micursor2

SCAN 

_rtfFile = "c:\"+SYS(3)+ALLTRIM(STR(rseg.id_seg))+".rtf"  

SET TEXTMERGE TO &_rtfFile NOSHOW

SET TEXTMERGE ON

\\{\rtf1\ansi\qj\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fnil\fcharset0 Times New Roman;}}\viewkind4\uc1\pard\f0\fs10\ul\qj <<ALLTRIM(rseg.comentario)>>\ulnone\par}

SET TEXTMERGE TO

APPEND GENERAL gText FROM &_rtfFile CLASS "RICHTEXT.RICHTEXTCTRL.1" &&Class RTF

ENDSCAN

REPORT FORM SYS(2003)+"\informes\seguimiento.frx" PREVIEW NOCONSOLE

ERASE &_rtfFile 

-----------------------------------

Saludos cordiales;

Lic. Allan R. Acuña
Desarrollador Independiente
msn= allan...@hotmail.com
skype= niceasysoft
            +(505) 8 831 8191      
www.NicEasySoft.com

Managua, Nicaragua

Centroamérica

---

Date: Tue, 28 Feb 2012 15:30:31 -0500
Subject: Re: [vfp] Imprimir rtf
From: todoso...@gmail.com
To: publice...@googlegroups.com

[sscom]

Muy buena esa app, ya la probe pero por ejemplo en word no me muestra
mas de una pagina no se porque y el reporte tiene mas de una pagina

On 28 feb, 14:30, Adolfo Leon Quintero Hoyos <todosoft2...@gmail.com>
wrote:

> Amigo mira aqui
>
> http://foxypreviewer.codeplex.com/
>
> Adolfo
>
> El 28 de febrero de 2012 15:25, Alfonso Arce Silvestre <

> alfonsoarcesilves...@gmail.com> escribió:

[sscom]

Hola Allan, disculpa mi ignorancia pero no entiendo el codigo, tengo
un campo memo formateado como rtf, como lo mando a imprimir ? gracias

On 28 feb, 14:33, Allan Raúl Acuña <allan_ra...@hotmail.com> wrote:
> Mis saludos antes que nada.
> Prueba este codigo
>

> ---------------------------------------------------------------------select * from micursor into cursor micursor2
> SCAN _rtfFile = "c:\"+SYS(3)+ALLTRIM(STR(rseg.id_seg))+".rtf"  SET TEXTMERGE TO &_rtfFile NOSHOWSET TEXTMERGE ON\\{\rtf1\ansi\qj\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fnil\fcharset0 Times New Roman;}}\viewkind4\uc1\pard\f0\fs10\ul\qj <<ALLTRIM(rseg.comentario)>>\ulnone\par}SET TEXTMERGE TOAPPEND GENERAL gText FROM &_rtfFile CLASS "RICHTEXT.RICHTEXTCTRL.1" &&Class RTFENDSCAN

> REPORT FORM SYS(2003)+"\informes\seguimiento.frx" PREVIEW NOCONSOLE
> ERASE &_rtfFile

> -----------------------------------Saludos cordiales;

>
> Lic. Allan R. Acuña
> Desarrollador Independiente

> msn= allan_ra...@hotmail.com

> skype= niceasysoft
>             +(505) 8 831 8191      www.NicEasySoft.comManagua, NicaraguaCentroamérica
>

> Date: Tue, 28 Feb 2012 15:30:31 -0500
> Subject: Re: [vfp] Imprimir rtf

> From: todosoft2...@gmail.com
> To: publice...@googlegroups.com
>
> Amigo mira aquihttp://foxypreviewer.codeplex.com/
>
> Adolfo

[Allan Raúl Acuña]

Voy a sacar un tiempo para prepararte un ejemplo.

Saludos cordiales;

Lic. Allan R. Acuña
Desarrollador Independiente

msn= allan...@hotmail.com
skype= niceasysoft
            +(505) 8 831 8191 begin_of_the_skype_highlighting            +(505) 8 831 8191      end_of_the_skype_highlighting      
www.NicEasySoft.com

Managua, Nicaragua

Centroamérica

> Date: Tue, 28 Feb 2012 15:56:04 -0800
> Subject: [vfp] Re: Imprimir rtf
> From: ljfif...@gmail.com
> To: publice...@googlegroups.com

[Adolfo Leon Quintero Hoyos]

Amigo baja la ultima version y actualiza todas las librerías a mi me funciona con mis informes contable

Saludos

Adolfo