Процедура AbortPrn Pascal-Паскаль

Описание

AbortPrn: процедура - Останавливает печать текста.

Объявление:	Procedure AbortPrn(Var F : Text);
Режим:	Windows

Замечания:

AbortPrn прекращает печать и отбрасывает все ненапечатанные части текста. Вы не должны забывать закрывать файл. Файл должен быть назначен с помощью процедур AssignPrn или AssignDefPrn.

Пример программы для процедур AbortPrn, AssignDefPrn и 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
        ReadLn(Source, Line);
        WriteLn(Prn, Line);
        { Прерываем печать при нажатии ESC }
        If KeyPressed And (ReadKey = #27) Then
        Begin
            AbortPrn(Prn);
            Break;
        End;
    End;
    Close(Source); { Закрываем файлы }
    Close(Prn);
End.