Buscar

Imprimindo o conteúdo de um memo/listbox

Código

Abaixo, como fazer para alcançar este objetivo:

Para realizar tal tarefa, adapte o código a seguir para as suas necessidades:

uses Printers;
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('Erro na Impressão.', mtError, [mbOk], 0);
end;
end;

Use no Delphi: PrintStrings(Listbox1.Items);
 

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%

Detalhes da dica

Categoria: Impressão
Adicionada dia: 08/07/05
Por: Joaquim Antonio Vila Real
Visualizada: 6011 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009