CAMPO MEMO - Resposta a GerJonan

[gerjonan]

Como declaro uma variavel para receber um campo memo definido em um arquivo dbf e como manda-lo imprimir ?

geraldo de bh
por favor me ajudem
gerjonan@yahoo.com.br

Nota de Moderação:
por Pablo César: Tópico movido da seção Sugestões, Críticas e Elogios sobre o Fórum

[Clipper]

Prezado Colega

Poste essa e futuras questões na seção Clipper pois é o local mais indicado, e também porque geralmente poucos acessam essa seção.

MARQ=MEMOWRIT("ARQUIVO.TXT",CAMPOMEMO)
TYPE ARQUIVO.TXT TO PRINT

Até logo.

Marcelo

[rochinha]

Amiguinho

Voce postou:

"Como declarar campo memo num PRG do clipper e como manda-lo para a impressora ou tela este campo .... considerando que eu tenho um campo com nome obs dentro de um cadastro de cliente
Meu nome é geraldo e antecipo agradecimentos
obrigado a quem puder me ajudar
_________________
Quem puder me ajudar envie resposta pelo email ou pelo forum"

Para impressao de conteudos de campos memo voce deverá fazer uso de algumas funções para obter maior controle.

MemoEdit(), MLCoutn() e MemoLine(), exemplo:

Código: Selecionar todos

...
    EditFile := [b]database->CampoMemo[/b]
    EditLarg := 80 // Largura da linha
    if .not. isprinter()
       beep()
       mensagem('Impressora esta desconectada ou desligada!',3)
       return
    endif
    set print on
    set device to print
    m->tam_memo := [b]MLCOUNT[/b]( EditFile, EditLarg )
    m->li_nha   := 1
    for i = 1 to m->tam_memo
        @ m->li_nha,00 say [b]memoline[/b]( EditFile, EditLarg , i)
        m->li_nha := m->li_nha + 1
        if m->li_nha > m->rel_linhas
           eject
           m->li_nha := 1
           setprc(0,0)
        endif
    next
    SETPRC(0,0)
    set device to screen
    set print off

@bracos :?)