Imprimir cadena RTF
Publicado por Natty (13 intervenciones) el 06/08/2007 18:29:12
Buenos días,
Estoy ocupando el Ritch Text Edit sin embargo, maneja el texto RTF, ya lo visualiza en las consultas, pero al imprimir me sale la cadena, el codigo va como sigue:
------------------------------------------------
DataStore s_impresion
s_impresion = CREATE DataStore
//obtengo la cadena almacenada en la B.D.
SELECT dba.datos_factura.descripcion
INTO :ls_richtext_desc
FROM dba.datos_factura
WHERE serie = :is_serie and
numero = :il_facnumpos and
sucursal = :il_sucursal
USING xxx_trans;
//en esta parte se obtiene la sintaxis de del reporte donde se requiere mostrar junto con mas información
........
///
s_impresion .SetTransObject(xxx_trans)
s_impresion.Retrieve(is_serie, il_facnumpos, il_sucursal)
s_impresion.PasteRTF(ls_richtext_desc) //Esto lo agregue para pegar la cadena
s_impresion.Print()
Pero esto me imprime la cadena en formato RTF... alguna sugerencia se los agradeceria
Saludos!!!
Estoy ocupando el Ritch Text Edit sin embargo, maneja el texto RTF, ya lo visualiza en las consultas, pero al imprimir me sale la cadena, el codigo va como sigue:
------------------------------------------------
DataStore s_impresion
s_impresion = CREATE DataStore
//obtengo la cadena almacenada en la B.D.
SELECT dba.datos_factura.descripcion
INTO :ls_richtext_desc
FROM dba.datos_factura
WHERE serie = :is_serie and
numero = :il_facnumpos and
sucursal = :il_sucursal
USING xxx_trans;
//en esta parte se obtiene la sintaxis de del reporte donde se requiere mostrar junto con mas información
........
///
s_impresion .SetTransObject(xxx_trans)
s_impresion.Retrieve(is_serie, il_facnumpos, il_sucursal)
s_impresion.PasteRTF(ls_richtext_desc) //Esto lo agregue para pegar la cadena
s_impresion.Print()
Pero esto me imprime la cadena en formato RTF... alguna sugerencia se los agradeceria
Saludos!!!
Valora esta pregunta
0