   ______________299

xecute         -
        Windows, , 
,   . ,  Windows  , 
   .txt   Notepad,    -
 .doc  Word.     

.      ShellExecute(Handle, "print", "Test.txt".MULL,NULL,SW_HIDE);

     test.txt   Notepad,  
SheliExecute(Handle, "print", "Test.doc",NULL,NULL,SW_HIDE) ;

     test.doc   Word.

         -
 ,     ,     -
  SaveToFile,    .

4.8.2     Printer

 C+4-Builder     TPrinter,  -
  ,    ,   
  Canvas.       5.1.3   
    .  ,     -
    .

  TPrinter    Printers.    
       

ttinclude <Printers.hpp>
       TPrinter.

|    ,  

I    Canvas          Canvas    ,   

    . Canvas  -
 ,  Pen ()  Brush (), 
        . -
          

.                      5.1.3

|    TextOut         ,      

|    Draw_______ ,      

BeginDoc           

EndDoc             . 
_________     EndDoc__________

I    PageHeight___    

j    PageWidth __    ______ _________

I    NewPage_____     _____

   PageNumber        ________

^     ,      ,  -
 .       Imagel.  

t     :

TPrinter *Prntr = Printer();

Prntr->Canvas->Font->Size = 12;