[Delphi_Source]

Сообщение от poli-smen

Код:

uses Printers;
 
procedure TForm1.Button2Click(sender: tobject); 
var
  Prn, Txt: TextFile; 
  i: integer; 
begin
  AssignPrn(Prn); // Переназначаем вывод в файл на вывод в принтер 
  AssignFile(Txt, 'C:\ПутьКФайлу\ИмяФайла.txt');
  Rewrite(Prn); // Готовим принтер к печати
  Rewrite(Txt);
  Printer.Canvas.Font:= Memo1.Font; 

  // Цикл печати: 
  for i := 0 to Memo1.Lines.Count - 1 do
  begin
    Writeln(Prn, Memo1.Lines[i]); 
    Writeln(Txt, Memo1.Lines[i]); 
  end;
 
  CloseFile(Prn);
  CloseFile(Txt);
end;

Теперь выдает печать на прямую. Раньше было стандартное диалоговое окно для выбора параметров печати (см. вложение).
Это из-за отсутствия компонента TPrintDialog?