Hola alguime me puede ayudar,
Un control trichedit los guardo en un campo de base de datos
y luego lo quiero imprimir, pero se solo se vea el texto, no los
controles de tipo rtf
¿Como puedo hacerlo?
Gracias
In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
ayuda impresion trichedit
ayuda impresion trichedit
Hola,
Si lo que deseas es imprimir texto plano sin los códigos rtf puedes hacerlo
mediante el método ::GetText().
Este te devuelve una cadena en format txt que después puedes manipular como
desees.
Saludos
"PILO" <srmpilo@hotmail.com> escribió en el mensaje de noticias
news:[email=48c79a0e@ozsrv2.ozlan.local...]48c79a0e@ozsrv2.ozlan.local...[/email]
> Hola alguime me puede ayudar,
> Un control trichedit los guardo en un campo de base de datos
> y luego lo quiero imprimir, pero se solo se vea el texto, no los
> controles de tipo rtf
> ¿Como puedo hacerlo?
> Gracias
>
Si lo que deseas es imprimir texto plano sin los códigos rtf puedes hacerlo
mediante el método ::GetText().
Este te devuelve una cadena en format txt que después puedes manipular como
desees.
Saludos
"PILO" <srmpilo@hotmail.com> escribió en el mensaje de noticias
news:[email=48c79a0e@ozsrv2.ozlan.local...]48c79a0e@ozsrv2.ozlan.local...[/email]
> Hola alguime me puede ayudar,
> Un control trichedit los guardo en un campo de base de datos
> y luego lo quiero imprimir, pero se solo se vea el texto, no los
> controles de tipo rtf
> ¿Como puedo hacerlo?
> Gracias
>
ayuda impresion trichedit
Hola pedro 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.
Hare una prueba con los que me comentas haber que puedo hacer, gracias
"Pedro Gil" <pgil@xailer.com> escribió en el mensaje
news:[email=48c7f197@ozsrv2.ozlan.local...]48c7f197@ozsrv2.ozlan.local...[/email]
> Hola,
>
> Si lo que deseas es imprimir texto plano sin los códigos rtf puedes
> hacerlo mediante el método ::GetText().
> Este te devuelve una cadena en format txt que después puedes manipular
> como desees.
>
> Saludos
>
> "PILO" <srmpilo@hotmail.com> escribió en el mensaje de noticias
> news:[email=48c79a0e@ozsrv2.ozlan.local...]48c79a0e@ozsrv2.ozlan.local...[/email]
>> Hola alguime me puede ayudar,
>> Un control trichedit los guardo en un campo de base de datos
>> y luego lo quiero imprimir, pero se solo se vea el texto, no los
>> controles de tipo rtf
>> ¿Como puedo hacerlo?
>> Gracias
>>
>
imprimir
con la clase tcanvas, pero sin que se muestren los codigos /rtf , solo el
texto plano.
Hare una prueba con los que me comentas haber que puedo hacer, gracias
"Pedro Gil" <pgil@xailer.com> escribió en el mensaje
news:[email=48c7f197@ozsrv2.ozlan.local...]48c7f197@ozsrv2.ozlan.local...[/email]
> Hola,
>
> Si lo que deseas es imprimir texto plano sin los códigos rtf puedes
> hacerlo mediante el método ::GetText().
> Este te devuelve una cadena en format txt que después puedes manipular
> como desees.
>
> Saludos
>
> "PILO" <srmpilo@hotmail.com> escribió en el mensaje de noticias
> news:[email=48c79a0e@ozsrv2.ozlan.local...]48c79a0e@ozsrv2.ozlan.local...[/email]
>> Hola alguime me puede ayudar,
>> Un control trichedit los guardo en un campo de base de datos
>> y luego lo quiero imprimir, pero se solo se vea el texto, no los
>> controles de tipo rtf
>> ¿Como puedo hacerlo?
>> Gracias
>>
>
ayuda impresion trichedit
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
--
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
--
ayuda impresion trichedit
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
--
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
--