Como imprimir o conteudo do ListBox ?

Delphi

07/10/2005

Tenho um arquivo texto que é exibido em um ListBox, e gostaria de imprimir este conteudo em impressora matricial

Se alguem puder me dar uma ajuda, aceito sujestões .


Fabiano Góes

Fabiano Góes

Curtidas 0

Respostas

Guilherme

Guilherme

07/10/2005

procedure TForm1.Button1Click(Sender: TObject);
var
  f : TextFile;
  i: integer;
begin
 AssignFile(f,´LPT1´);
 Rewrite(f);
 for i := 0 to ListBox1.Count -1 do
 Writeln(f, listbox1.Items[i]);
 Writeln(f,12);
 f.Close;
 f.Free;
end;



GOSTEI 0
Fabiano Góes

Fabiano Góes

07/10/2005

Valeu Guilherme !!!

Muito obrigado pela dica !!


GOSTEI 0
Guilherme

Guilherme

07/10/2005

Mais deu certo ?



tem uma coisa errada cara é ki fiz de cabeça
vc tira as 2 linha f.close e f.free e coloca closefile(f). so isso ki tava errado !!!


GOSTEI 0
Fabiano Góes

Fabiano Góes

07/10/2005

Guilherme, ainda não testei
mais de qualquer forma já lhe agradeço pela atenção,
vou corrigir o codigo.


GOSTEI 0
POSTAR