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

Описание

AssignDefPrn - Назначает файл заданному по умолчанию принтеру.

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

Замечания:

AssignDefPrn вызывает AssignPrn с параметрами Device, Driver и Port равным NIL. Это связывает заданный по умолчанию принтер Windows с файлом F. Если менеджер печати Windows активен, то любой текст, записанный в F сохраняется им и будет напечатан при закрытии файла.

Пример программы для процедуры AssignDefPrn
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.