DbMemo

[EderDias 0]

Pessoal....tenho 2 dúvidas com DBMemo.....porque eu nunca trabalhei com ele antes.

 

1-Eu mandei imprimir ele atraves deste codigo abaixo...mas o problema é que o dbmemo tem muito texto...e ele acaba fora do relatorio...então eu precisa que ele imprimisse como esta no memo.......ou seja.....se no dbmemo ele foi digitado 4 linhas de texto então eu gostaria que eu fosse pro Quickreport com 4 linhas tbem...ou que não ultrapassa a margem do relatorio, ou algo parecido

o codigo é esse abaixo que estou usando:

 

CODEprocedure TFormCPen.EncartaButton2Click(Sender: TObject);

Begin

With FormImpReg do

Begin

qrlabel3.caption:=EditCodigo.text;

qrlabel4.caption:=dbdateedit3.text;

qrlabel5.caption:=DbCombobox1.text;

qrlabel19.caption:=DbCombobox4.text;

qrlabel39.caption:=DbMemo1.text;

QuickRep1.Preview;

end;

end;

 

2-a outra duvida é que eu programei para a tabela paradox no campo dbmemo tivesse ate 200 caracteres alphanumericos para ser digitado...então quando chegar a 200 caracteres aparessesse uma mensagem ao usuario dizendo que o limite de digitação acabou.

 

Mto Grato

http://forum.imasters.com.br/public/style_emoticons/default/grin.gif

[EderDias 0]

amigo....eu até,,,,usei o QrMemo mas nada acontece...ele compila legal...mas não aparecesse nada na tela de impressão do Quick....é como se nada fosse digitado no DBMemo1 ????

 

http://forum.imasters.com.br/public/style_emoticons/default/ermm.gif

 

segue abaixo o codigo:

 

procedure TFormCPen.EncartaButton2Click(Sender: TObject);BeginWith FormImpReg doBeginQrMemo1.caption:=DbMemo1.text;QuickRep1.Preview;end;end;

:(