Udskriv fra listbox

Prøv dette, det virker:

Husk at tilføje Printer i uses

var
  I: Integer;
  Fil: TextFile;
begin
  AssignPrn(Fil);
  Rewrite(Fil);
  for I := 0 to pred(ListBox1.Items.Count) do
    begin
      WriteLn(Fil, ListBox1.Items[I]);
    end;
  System.CloseFile(Fil);
end;


/SpEeDy

ups, husk at tilføje Printers i uses