{ Пример программы для процедур AbortPrn, AssignDefPrn And TitlePrn } Uses WinPrn, WinCrt; Var Source, Prn : Text; Name : Array [0..80] Of Char; Line : String; Begin { Считываем имя файла } Write('Введите имя распечатываемого файла : '); ReadLn(Name); Assign(Source, Name); Reset(Source); AssignDefPrn(Prn); { Связываем файл со стандартным принтером } TitlePrn(Prn, Name); ReWrite(Prn); WriteLn('Печатаю файл : ', Name); { Печатаем файл } While Not Eof(Source) Do Begin { Считываем имя файла } Write('Введите имя распечатываемого файла : '); ReadLn(Name); Assign(Source, Name); Reset(Source); AssignDefPrn(Prn); { Связываем файл со стандартным принтером } TitlePrn(Prn, Name); ReWrite(Prn); WriteLn('Печатаю файл : ', Name); { Печатаем файл } While Not Eof(Source) Do ReadLn(Source, Line); WriteLn(Prn, Line); { Прерываем печать при нажатии ESC } If KeyPressed And (ReadKey = #27) Then Begin AbortPrn(Prn); Break; End; End; Close(Source); { Закрываем файлы } Close(Prn); END.