Como Imprimir um Memo direto na impressora
Olá galera,
como faço para imprimir o conteudo de um componente Memo direto na impressora padrão, sem precisar perguntar nada ao usuario, eu quero é clicar no botão imprimir e ir pegar a folha na impressora? Eu uso Delphi 5, parece simples mas num faço a minima idéia de como fazer!
Obrigado a todos :wink: [/code]
como faço para imprimir o conteudo de um componente Memo direto na impressora padrão, sem precisar perguntar nada ao usuario, eu quero é clicar no botão imprimir e ir pegar a folha na impressora? Eu uso Delphi 5, parece simples mas num faço a minima idéia de como fazer!
Obrigado a todos :wink: [/code]
Jc
Curtidas 0
Respostas
Anonymous
17/02/2003
JC,
tente isso...
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);
Execute o projeto, escreva qualquer texo no Memo e clique no botão. O resultado será o que você escreveu impresso em uma folha que estava na sua impressora.
[]´s
Rodrigo Duarte.
tente isso...
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);
Execute o projeto, escreva qualquer texo no Memo e clique no botão. O resultado será o que você escreveu impresso em uma folha que estava na sua impressora.
[]´s
Rodrigo Duarte.
GOSTEI 0
Jc
17/02/2003
Obrigado Rodrigo, isso é bem simples, facilitara bastante minha aplicação.
GOSTEI 0