home *** CD-ROM | disk | FTP | other *** search
/ Amiga Games 1996 January / amigagames-cdrom-1996-01.iso / userbox / publicdomain / mtr / prefprinter.rexx < prev    next >
OS/2 REXX Batch file  |  1995-01-22  |  4KB  |  89 lines
  1. /*
  2. $VER: Druckanpassung.rexx 1.10 (21.01.95)
  3.  *********************************************************************/
  4. /* Hilfsprogramm zur Anpassung unterschiedlicher Drucker an                */
  5. /* MTRechnung V2.25 oder höher                                                    */
  6. /* Autor: Manfred Tremmel                                                            */
  7. /* Sprache: ARexx                                                                        */
  8. /*********************************************************************/
  9.  
  10. /* Druckerabhängige Einstellungen                                    */
  11. ESC        = '1b'x
  12. DruBez    = "PrefPrinter";                        /* Druckersprachenbezeich. */
  13. D_Z_kl    = ESC || "[0z";                        /* Zeilenabst. 1/8 Zoll        */
  14. D_Z_gr    = ESC || "[1z";                        /* Zeilenabst. 1/6 Zoll        */
  15. D_Schr    = ESC || "[0m";                        /* Standardschrift.            */
  16.                 /* Diese sollte in verschiedenen Größen verfügbar sein    */
  17. D_SStand    = ESC || "[0w";                        /* Standardgröße                */
  18. D_SGross    = ESC || "[6w";                        /* Große Schrift (PLZ)        */
  19. D_SKlein    = ESC || "[4w";                        /* Kleine Schrift (Abs.)    */
  20. D_Br10    = ESC || "[0w";                        /* Schriftbreite 10 cpi        */
  21. D_Br12    = ESC || "[2w";                        /* Schriftbreite 12 cpi        */
  22. D_Br15    = ESC || "[4w";                        /* Schriftbreite 15 cpi        */
  23. D_PEin    = ESC || "[2p";                        /* Proportional ein            */
  24. D_PAus    = ESC || "[1p";                        /* Proportional aus            */
  25. D_UEin    = ESC || "[4m";                        /* Unterstrichen ein            */
  26. D_UAus    = ESC || "[24m";                        /* Unterstrichen aus            */
  27. D_KEin    = ESC || "[3m";                        /* Kursiv ein                    */
  28. D_KAus    = ESC || "[23m";                        /* Kursiv aus                    */
  29. D_FEin    = ESC || "[1m";                        /* Fettdruck ein                */
  30. D_FAus    = ESC || "[22m";                        /* Fettdruck aus                */
  31. D_ZNorm    = "";                                        /* normaler Zeichenabst.    */ 
  32. D_ZZAbst    = "";                                        /* Zusätzl. Zeichenabst.    */
  33. D_CSchw    = ESC || "[39m";                        /* Druckfarbe Schwarz        */
  34. D_CMag    = ESC || "[35m";                        /* Druckfarbe Magenta        */
  35. D_CZyan    = ESC || "[36m";                        /* Druckfarbe Zyan            */
  36. D_CViol    = ESC || "[34m";                        /* Druckfarbe Violett        */
  37. D_CGelb    = ESC || "[33m";                        /* Druckfarbe Gelb            */
  38. D_CRot    = ESC || "[31m";                        /* Druckfarbe Rot                */
  39. D_CGruen    = ESC || "[32m";                        /* Druckfarbe Grün            */
  40. /* Drucker zurücksetzen (geschieht am Anfang jeden Drucks)                */
  41. D_Rueck    = ESC || "c" || D_CSchw || D_Schr || D_SStand || D_Br10 || D_Z_gr|| D_PAus || D_UAus || D_KAus || D_FAus;
  42. /* Druck beenden (am Ende jedes Ausdrucks!)                                    */
  43. D_Ende    = '0c'x;
  44. /* Ist eine Umrechnung der Umlaute nötig?                                        */
  45. D_UmRe    = "N";
  46. D_EingZ    = "";                                    /* Umzurechnende Zeichen        */
  47. D_AusgZ    = "";                                    /* Ausgangszeichen                */
  48.  
  49. file    = "Drucker/" || DruBez;                /* Druckerdateiname, in dem    */
  50. datei    = DruBez;                                /* die Daten gespeichert         */        
  51. Suc  = OPEN(datei,file,'write');            /* werden öffnen!                    */
  52. IF Suc THEN                                        /* Wenn das geklappt hat,        */
  53.     DO;
  54.         WRITELN(datei,D_Z_kl);                /* schreib die Daten rein.        */
  55.         WRITELN(datei,D_Z_gr);
  56.         WRITELN(datei,D_Schr);
  57.         WRITELN(datei,D_SStand);
  58.         WRITELN(datei,D_SGross);
  59.         WRITELN(datei,D_SKlein);
  60.         WRITELN(datei,D_Br10);
  61.         WRITELN(datei,D_Br12);
  62.         WRITELN(datei,D_Br15);
  63.         WRITELN(datei,D_PEin);
  64.         WRITELN(datei,D_PAus);
  65.         WRITELN(datei,D_UEin);
  66.         WRITELN(datei,D_UAus);
  67.         WRITELN(datei,D_KEin);
  68.         WRITELN(datei,D_KAus);
  69.         WRITELN(datei,D_FEin);
  70.         WRITELN(datei,D_FAus);
  71.         WRITELN(datei,D_ZNorm);
  72.         WRITELN(datei,D_ZZAbst);
  73.         WRITELN(datei,D_CSchw);
  74.         WRITELN(datei,D_CMag);
  75.         WRITELN(datei,D_CZyan);
  76.         WRITELN(datei,D_CViol);
  77.         WRITELN(datei,D_CGelb);
  78.         WRITELN(datei,D_CRot);
  79.         WRITELN(datei,D_CGruen);
  80.         WRITELN(datei,D_Rueck);
  81.         WRITELN(datei,D_Ende);
  82.         WRITELN(datei,D_UmRe);
  83.         WRITELN(datei,D_EingZ);
  84.         WRITELN(datei,D_AusgZ);
  85.     END;
  86. CLOSE(datei);                                    /* Schließ die Datei                */
  87.  
  88. EXIT 0;                                            /* Das wars auch schon!            */
  89.