Pilo,
Como te comenté puedes hacerlo con el método GetText. Por ejemplo,
WITH OBJECT oRTF := TRichEdit():New( Self )
:SetBounds( 0, 0, 0, 0 )
:lVisible := .F.
:Create()
:cText := ::oDbfRegistro:NOTAS
END
cText := oRTF:GetText() // --> Obtienes el texto plano
.... // ...
Ahora puedes modificar esta línea de tu programa:
:TextRect( { 150, 755, 1500, 1520 }, cText, CLR_BLACK )
Saludos
"PILO" <
srmpilo@hotmail.com> escribió en el mensaje de noticias news:[email=
48c93a94@ozsrv2.ozlan.local...]
48c93a94@ozsrv2.ozlan.local...[/email]
Hola siguo esperando que alguien me pueda ayudar
tengo un texto en un campo guardado con format /rtf y lo quiero imprimir
con la clase tcanvas, pero sin que se muestren los codigos /rtf , solo el
texto plano.
esto es lo que estoy trabajando
Printer:nPrinterIndex := AScan( Printer:aPrinterNames, IMPRESORA ) //seleciona impresora en la que quiero imprimir
alguanas veces no sale al que yo quiero, me sale los parametros de la impresora por defecto
// ¿Como puedo hacer para que salgan los parametros que yo quiero o tengo definidos en la previsualizacion?
Printer:cPRINTERNAME := IMPRESORA // Nombre de la impresora que yo he selecionado
Printer:lPreview := .t.
Printer:nColor := VAL(IMPRECOLOR) // si impresion en color
Printer:nCopies := VAL(NUMECOPIAS) // numero de copias a realizar
Printer:nDefaultBin := VAL(BANDEJA) // numero bandeja imprimir
Printer:nDuplex := VAL(DOBLECARA) // si tiene duples la impresora
Printer:nOrientation := VAL(ORIENTACION) // formato de orientacion de impreosar
Printer:nPaperSizeType := VAL(TIPOHOJA) // Tipo de papel, no me sale lo que yo he definido, sino la que esta predetermina
// como puedo hacer para que en la visualizacion salga lo que y he definido
Printer:StartDoc()
Printer:oCanvas:nMapMode := mmHIMETRICS
WITH OBJECT Printer:oCanvas
:oFont := oFont
:oPen := oPen
:lTransparent := .f.
Printer:StartPage()
:DrawPicture( {20, 20, 4200, 2960}, oBmpJUDOCU )
:oFont:cName := "Code 128AB Short HR"
:oFont:nSize := 60
:oFont:lBold := .F.
:TextOut( ( CoL204 + 0 ) * 10, ( 30 ) * 10,;
rtrim(::oDbfRegistro:DOCUMENTO) )
:oFont:cName := "Arial"
:oFont:nSize := 12
:oFont:lBold := .t.
:oFont:lUnderline := .f.
:nTextAlignment := taLEFT
:nTextVAlignment := vaTOP
:TextRect( { 150, 755, 1500, 1520 }, ::oDbfRegistro:NOTAS, CLR_BLACK ) // En esta parte en donde tengo problemas para imprimir
// Este camppo tiene guardado los datos en formato /rtf, y lo que quiero es imprimirlo
// Sin que salgan los controles del RTF solo los del texto
// ¿Alguien me puede explicar como hacerlo, para que solo se vea el texto y no todos los controles?
// texto con controles que se imprime
{rtf1ansideff0{fonttbl{f0fnilfcharset0 Arial;}}
{colortbl ;red0green0blue0;}
viewkind4uc1pardcf1lang3082fs24 DJKG ALAJSLpar
ASDFKLS F'c7AS
// textos sin controles que quiero imprimir
DJKG ALAJSL
ASDFKLS F
:nTextVAlignment := vaCENTER
Printer:EndPage()
Printer:EndDoc()
with object Printer:PreviewControl()
//:lAutoFit := .t.
:nZoomIndex := 10
:oParent:ShowModal()
end with
END with
--