RichEdit

[Theotokos]

Bom Dia,

Tenho um campo RichEdit que gravo em um arquivo DBF no campo MEMO, esta tudo certo até ai, só que agora preciso imprimir este

campo com a formatação do RichEdit em um tPrinter (oPrn:Say), ou uma outra maneira que seja possível imprimir outros campos do DBF e o campo MEMO (RichEdit) juntos.

Exemplo do que estou fazendo:

Glicose: 110 mg/dl                                                                           Vr.Ref.: f1s231 fs2d1 f32s1d f3232 f3s

                                                                                                                                                          Sd12FSD12F 12sdf 12SD2f2f f21

Observação: dsdasd 1as21d2as Das d1as das

                        f2sd31f 321sd32f 1sd321 f3s2dsd

N.T.: Os Campos Vr.Ref. e observação são o campo RichEdit

 

[atnsoft]

Cara, tentei isso por dias. O campo qdo formatado, recebe trocentos caracteres de controle. A alternativa é usar as funçoes gtftotxt e txttogtf e fazer na "unha". Não se consegue separar as linhas e ter o controle das formatações juntas.

 

Minha saida foi usar tags de formatação e assim conseguir fontes alternativas na impressão.

[Theotokos]

Cara, tentei isso por dias. O campo qdo formatado, recebe trocentos caracteres de controle. A alternativa é usar as funçoes gtftotxt e txttogtf e fazer na "unha". Não se consegue separar as linhas e ter o controle das formatações juntas.

 

Minha saida foi usar tags de formatação e assim conseguir fontes alternativas na impressão.

Vlw! Vou dar uma olhada nesta funções que vc indicou... Quanto a usar tags de formatação, vc poderia explicar como é isso, se possível envia para mim um exemplo (rone@rl-informatica.net) obrigado!!!!

[atnsoft]

uso no campo texto normal:

 

{FT10} isto é um teste com fonte na variavel Vft10 {FT02} isto é um teste com fonte na variavel vft02

 

e assim por diante

 

no exemplo pratico:

 

{FT01}DOSAGEM DE GLICOSE{FT03}

Material..: {Vmaterial}            Método: {Vmetodo}

{FT02}RESULTADO.: {N01}{FT02} mg/dl. {FT03}                REFERÊNCIA
                                  População Normo Glicemica :   70,0 a 110,0 mg/dl.
                                  Glicose Alterada de Jejum :  110,0 a 125,0 mg/dl.
                                 Diabetes Mellitus         : Acima de 126,0 mg/dl.
Obs. Classificação da Associação Americana de Diabetes BOSTON 1997 , Pacientes com Resultados alterados devem ser confirmados em NOVA COLETA de preferência no mesmo serviço Laboratorial; mesma metodologia e equipamentos.        

 

e na impressão com a tprinter, uso substr e at para localizar as tags e trocar as fontes de letras. Note que tem de ir fazendo e testanto, pois não se tem com precisão onde ira terminar a linha.

 

 

 

 

[Theotokos]

Recorrendo novamente ao topico....

 

Ainda não consegui resolver isto....

 

Preciso de Imprimir um campo MEMO que tem nele um conteudo do RichEdit (Texto formatado) junto com a classe TPrinter.

 

ALGUEM TEM ALGUMA IDÉIA? ALGUM EXEMPLO PELO AMOR DE DEUS.....

 

OBRIGADO!!!!!

[leo@lhsistemas.com]

Theotokos, boa tarde.

 

Leia o conteúdo do campo memo e grave num arquivo(TXT) qualquer, daí use a classe TXTFILE para leer linha a linha e formatar a linha que deseja.

 

Abraços,

Léo.

[Theotokos]

Theotokos, boa tarde.

 

Leia o conteúdo do campo memo e grave num arquivo(TXT) qualquer, daí use a classe TXTFILE para leer linha a linha e formatar a linha que deseja.

 

Abraços,

Léo.

Nunca usei esta classe txtfile, vc teria algum exemplo para ajudar? Vlw!!!!

[leo@lhsistemas.com]

Theotokos, boa tarde.

 

Segue um exemplo abaixo:

 

   oFile := TTxtFile():New(cFileCMD)  // Arquivo TXT a ler
   
   Define Dialog oDlgWait RESOURCE "AGUARDA" of oWndExcel Title "Gerando Arquivo MS-Excel"

   nPercent := 0
   nLinhas  := oFile:LastRec()  // Pega a quantidade de linhas no arquivo TXT

   Redefine Progress oPercent ID 101 OF oDlgWait

   Activate Dialog oDlgWait Centered NoWait

   oPercent:SetRange( 1, nLinhas )

   oPercent:SetStep(1)

   oExcel:= TExcelScript():New()
   oExcel:Visible := .F.
   oExcel:Open( cDestino ) // abre o documento vazio que utilizo como modelo(template)

   Do While ! oFile:lEof()
       oPercent:SetPos( oFile:nRecno() )

       cLinhaTXT := Alltrim(oFile:cLine)  // Le a linha do arquivo TXT

      If ! Empty(cLinhaTXT)
         oExcel:Eval( cLinhaTXT )
      EndIf

      oFile:Skip( 1 )  // Salta uma linha no arquivo TXT(vai para a próxima linha)
   ENDDO

   oExcel:Save()
   oExcel:End(.T.)
   oFile:End()
 

É como trabalhar com arquivo DBF.

 

Abraços,

Léo.