abotPrn.pas
Пример программы для процедур AbortPrn, AssignDefPrn And TitlePrn.
Код примера
{ Пример программы для процедур 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.
Скачать abotPrn.pas