O conteudo do RICHEDIT fica em branco

[marcos.gurupi]

Caros, estou usando o comando RICHEDIT quando usuario preenche o conteudo do mesmo e tenta imprimir estah saindo em branco. Estou fazendo assim:

Private oEditar,vEditar:=""

@ 32,195 RICHEDIT oEditar TEXT vEditar SIZE 460,120 STYLE WS_VSCROLL + ES_MULTILINE

O q pode estah errado. O q eh estranho eh q anteriormente estava dando certo, eu estava apenas tentando formatar a impressao.

Marcos Roberto

[sygecom]

Olá Marcos,
Mostre como esta fazendo para pegar o que foi digitado no RICHEDIT e como vc esta imprimindo.

[marcos.gurupi]

Assim:
@ 32,195 RICHEDIT oEditar TEXT vEditar SIZE 460,120 STYLE WS_VSCROLL + ES_MULTILINE


Para imprimir:

Código: Selecionar todos

         oPrinter:TextOUT("          a seguir discriminados e protestados contra: "+subs(vEdita,1,21))
         oPrinter:NewLine()
         oPrinter:TextOUT("          "+SubStr(vEdita,22,66))
         oPrinter:NewLine()
         oPrinter:TextOUT("          "+SubStr(vEdita,89,66))
         oPrinter:NewLine()
         oPrinter:TextOUT("          "+substr(vEdita,156,66))
         oPrinter:NewLine()
         oPrinter:TextOUT("          "+SubStr(vEdita,223,66))
         oPrinter:NewLine()
         oPrinter:TextOUT("          "+SubStr(vEdita,290,66))
         oPrinter:NewLine()
         oPrinter:TextOUT("          "+SubStr(vEdita,357,66))

Marcos Roberto.

-------------------------------
Nota de Moderação (Toledo): mensagem editada para colocar a tag [ code ]
Veja como utilizar esta tag: faq.php?mode=bbcode#f21

[Toledo]

Marcos, observe que você declarou e está usando uma variável chamada vEditar no RICHEDIT, mas na hora de imprimir, você está usando apenas vEdita.

Abraços,

[marcos.gurupi]

Eh verdade toledo, mas o problema foi resolvido assim:

vEdita:=oEditar:GetText()

Marcos Roberto

[clebervn]

Sobre o RICHEDIT, pus no meu projeto o exemplo q segue neste fórum e deu certinho... porém somente uma dúvida :
- qdo da o "GET" no richedit, ele aparece tudo selecionado e no final do texto, tem como ir direto pro inicio ?? pq eu mesmo por descuido apertando uma tecla ja apaguei sem querer todo o texto, imagina o usuário ??!!

abc

[ANDRIL]

Clebervn, tente colocar isto:

Código: Selecionar todos

@ 32,195 RICHEDIT oEditar TEXT vEditar SIZE 460,120 STYLE WS_VSCROLL + ES_MULTILINE;
ON INIT {|| keyb_event(36) }

Ate