[poli-smen]

Печатает на принтере и выводит в Memo:

Код:

uses Printers;
   
procedure TForm1.Button2Click(sender: tobject); 
var
  Prn: TextFile; 
  i: integer; 
begin
  if ShellListView1.SelCount = 0 then
    raise Exception.Create('Ничего не выделено');
 
  AssignPrn(Prn); // Переназначаем вывод в файл на вывод в принтер 
  Rewrite(Prn); // Готовим принтер к печати
  
  Memo1.Clear;
  // Цикл печати: 
  for i := 0 to ShellListView1.Items.Count - 1 do
  begin
    if ShellListView1.Items[i].Selected then
      Writeln(Prn, ShellListView1.Folders[i].PathName);

    Memo1.Lines.Add(ShellListView1.Folders[i].PathName);
  end;
   
  CloseFile(Prn);
end;