Fórum Imprimir Memo #194721
13/11/2003
0
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;
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
Curtir tópico
+ 0
Responder
Posts
13/11/2003
Tiagojmilam
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)
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)
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)