home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / xbase / library / dbase / printer / prints / prints.prg
Text File  |  1986-11-12  |  2KB  |  67 lines
  1. *********************************************************
  2. ***** DBASE III contains no commands for setting or *****
  3. ***** changing printer parameters.  The following   *****
  4. ***** little program can be run at any time while   *****
  5. ***** in DBASE III, and allows certain printer      *****
  6. ***** parameters to be changed.  The printer escape *****
  7. ***** sequences presented herein are specifically   *****
  8. ***** those of the Star Gemini 10X printer, and may *****
  9. ***** have to be modified for other printers.       *****
  10. ***** Consult the User's Guide for your particular  *****
  11. ***** printer.                                      *****
  12. *********************************************************
  13. set talk off
  14. ***** Initialize printer to default settings        *****
  15. set print on
  16. ? chr(27)+chr(64)
  17. set print off
  18. ***** Present menu of printer control choices       *****
  19. ch = ""
  20. do while ch # "0"
  21.     clear
  22.     text
  23.                      P R I N T E R   C O N T R O L
  24.  
  25.  
  26.                       1  =  10 Pitch
  27.                       2  =  12 Pitch
  28.                       3  =  17 Pitch
  29.                       4  =  Double-Strike
  30.                       5  =  Cancel Double Strike
  31.                       6  =  Boldface
  32.                       7  =  Cancel Boldface
  33.                       8  =  Italics
  34.                       9  =  Cancel Italics
  35.                       0  =  Quit this utility
  36.  
  37.     endtext
  38.     wait "                      Enter choice:  ?  " to ch
  39.     set print on
  40.     do case        
  41.         case ch = "1"
  42.             ? chr(18)
  43.         case ch = "2"
  44.             ? chr(27)+chr(66)+chr(12)
  45.         case ch = "3"
  46.             ? chr(15)
  47.         case ch = "4"
  48.             ? chr(27)+chr(71)
  49.         case ch = "5"
  50.             ? chr(27)+chr(72)
  51.         case ch = "6"
  52.             ? chr(27)+chr(69)
  53.         case ch = "7"
  54.             ? chr(27)+chr(70)
  55.         case ch = "8"
  56.             ? chr(27)+chr(52)
  57.         case ch = "9"
  58.             ? chr(27)+chr(53)
  59.         otherwise
  60.  
  61.     endcase
  62. set print off
  63. enddo
  64. clear
  65. set talk on
  66. return
  67.