Imprimir Memo

Delphi

13/11/2003

Bom dia .
estou precisando imprimir o conteúdo do objeto Memo.. mas acontece que com este código descrito abaixo ele vem com fonte pequena e sem formatação necessária..
gostaria de saber se tem com arrumar isso..

Procedure TForm1.Memo_Print(Conteudo:TStrings);
Var
MemoFile :TextFile;
P :Integer;
Begin
AssignPrn(MemoFile);
Rewrite(MemoFile);
For P := 0 to Conteudo.Count-1 do
Writeln(MemoFile,Conteudo.Strings[P]);
CloseFile(MemoFile);
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
Memo_Print(Memo.Lines);
end;


Eric.miranda

Eric.miranda

Curtidas 0

Respostas

Tiagojmilam

Tiagojmilam

13/11/2003

Para você imprimir um conteúdo de um memo siga o seguinte esquema a seguir :

Coloque um Memo e um Button no form. Na área de código declare a unit Printers na seção uses.

Na seção Implementation escreva a seguinte procedure:

procedure PrintStrings(Strings: TStrings);
var
Prn: TextFile;
i: word;
begin
AssignPrn(Prn);
try
Rewrite(Prn);
try
for i := 0 to Strings.Count - 1 do
writeln(Prn, Strings.Strings[i]);
finally
CloseFile(Prn);
end;
except
on EInOutError do
MessageDlg(´Error na impressao de texto.´, mtError, [mbOk], 0);
end;
end;


No evento OnClick do objeto button escreva o seguinte código:

PrintStrings(Memo1.Lines);


:wink: Espero ter te ajudado !

Tiago J Milam 8)


GOSTEI 0
POSTAR