Fórum Imprimir no QR #210148
28/01/2004
0
Alguem sabe como imprimir usando QRExprMemo em justificado ou conhece uma outra solução para este tipo de impressão.
Estou tentando gerar um contrato pelo delphi e só falta isso para concluir.
Anteciosamente
Walbert
wcprog@bol.com.br
Wcprog
Curtir tópico
+ 0Posts
28/01/2004
Fabio.hc
function Justifica(mCad:string;mMAx:integer):string;
var
mPos,mPont,mTam,mNr,mCont:integer;
mStr:string;
begin
mTam:=Length(mCad);
if mTam>=mMax then
Result:=copy(mCad,1,mMax)
else
mStr:=´´;
mCont:=0;
mPont:=1;
mNr:=mMax-mTam;
while mCont<mNr do
begin
mPos:=pos(mStr,copy(mCad,mPont,100));
if mPos=0 then
begin
mStr:=mStr+´ ´;
mPont:=1;
continue;
end
else
begin
mCont:=mCont+1;
Insert(´ ´,mCad,mPos+mPont);
mPont:=mPont+mPos+length(mStr);
end;
Result:=mCad;
end;
end;EX.:
Memo1.lines[i]:=justifica(memo1.lines[i],60 {Nº de caracteres possiveis da linha});
Gostei + 0
28/01/2004
Aroldo Zanela
A função acima (não testei) deverá justificar texto para fontes monoespaçadas como: FixedSys, Terminal, Courier. Eu ainda prefiro utilizar o Word para impressão de contratos, mas dê uma olhada nesta thread: http://delphiforum.icft.com.br/forum/viewtopic.php?t=10490&highlight=eccjust
Gostei + 0
18/04/2005
Boinaverde
Desculpa o up nesse tópico tão antigo, mas foi a melhor maneira que achei pra não criar um outro com a mesma duvida.
Não consegui usar essa função, não que ela esteja errada, mas não consegui fazer a função ´funcionar´, tipo criei uma unit separada só pra receber essa função, declarei no uses do QuickRep, mas não consegui fazer a chamada, alguém aew com mais experiência poderia me auxiliar?
Tipo qual evento eu devo usar e nessa linha:
Memo1.lines[i]:=justifica(memo1.lines[i],60 {Nº de caracteres possiveis da linha});
o que essa variavel i ta recebendo?
obrigado!
Gostei + 0
19/04/2005
Aroldo Zanela
Veja se este tópico lhe atende: http://www.forumweb.com.br/forum/lofiversion/index.php/t3161.html
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)