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