home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / dtx9202 / tricks / clipper / demo3.prg < prev   
Encoding:
Text File  |  1991-12-22  |  994 b   |  29 lines
  1. ************************************************************
  2. *                                                          *
  3. *       Sprache   :  Clipper Summer '87                    *
  4. *                                                          *
  5. *       DEMO3     :  Funktion DRUCKOK                      *
  6. *                                                          *
  7. *       Copyright :  Ingo Berg, Krefeld im Dezember 1991   *
  8. *                                                          *
  9. ************************************************************
  10.  
  11. Do ClipFunc.prg         && Einbinden der Clipper-Funktion
  12.  
  13. If druckok()
  14.  
  15.    Set Device To Print
  16.    @ Prow()  , Pcol() Say "Dies ist ein Testdruck"
  17.    @ Prow()+1, Pcol() Say ""
  18.    Set Printer To
  19.    Set Device To Screen
  20.  
  21. Endif
  22.  
  23. Quit
  24.  
  25. ************************************************************
  26. *                    Ende DEMO3.PRG                        *
  27. ************************************************************
  28.  
  29.