Xailer & OZ Software

EN ANTERIOR HE PREGUNTADO, Y ME HA RESPONDIDO
PERO NO LO QUIERO EN TEXTO PLANO SI SE PUEDE
SINO QUE EL DATOS QUE TENGO SALGA COMO EN EL TRICHEDIT
ESPERO VUESTRA AYUDA
"PILO" <srmpilo@hotmail.com> escribió en el mensaje
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

Hola Pilo,
Disculpa, quizás no entendí­ lo que deseas hacer. ¿Imprimir en texto plano o
con los códigos rtf? Creo que en el otro hilo planteabas la pregunta sobre
texto plano, ¿no?
Si lo que deseas es imprimir los códigos rtf puedes usar el método
DrawRichEdit() de la clase TCanvas. Por ejemplo:
WITH OBJECT oRTF := TRichEdit():New( Self )
:SetBounds( 0, 0, 0, 0 )
:Create()
:cText := ::oDbfRegistro:NOTAS
END
en lugar de:
:TextRect( { 150, 755, 1500, 1520 }, ::oDbfRegistro:NOTAS, CLR_BLACK )
puedes hacer:
:DrawRichEdit( { 150, 755, 1500, 1520 }, oRTF )
Saludos
"PILO" <srmpilo@hotmail.com> escribió en el mensaje de noticias
news:[email=48ca4c42@ozsrv2.ozlan.local...]48ca4c42@ozsrv2.ozlan.local...[/email]
> EN ANTERIOR HE PREGUNTADO, Y ME HA RESPONDIDO
> PERO NO LO QUIERO EN TEXTO PLANO SI SE PUEDE
> SINO QUE EL DATOS QUE TENGO SALGA COMO EN EL TRICHEDIT
> ESPERO VUESTRA AYUDA
> "PILO" <srmpilo@hotmail.com> escribió en el mensaje
> 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
>
>
>

Muchisimas gracias Pedro, esto es lo que buscaba, pero
no entendia como pasar a trichedit
Gracias