home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Database / ADM144.lha / ADM / ARexx / PrintLabels.adm < prev    next >
Encoding:
Text File  |  1994-10-29  |  845 b   |  30 lines
  1. /* $VER: PrintLabels 1.1 (16.5.94) by Jan Geißler
  2.  
  3.    Druckt für alle Adressen im Speicher ein Etikett aus.
  4.  
  5.    History:
  6.  
  7.       V1.0 21.09.93  [jan]  - Erste Version
  8.       V1.1 16.05.94  [jan]  - BUG: Makro druckte erstes
  9.                               Etikett mehrfach statt jeden
  10.                               Eintrag einmal.
  11.  
  12.    */
  13.  
  14. OPTIONS RESULTS    /* Rückgabewerte einschalten */
  15.  
  16. ADDRINMEM          /* Anzahl Adr. im Speicher herausfinden*/
  17. numadr = RESULT
  18. ACTIVATEFIRST      /* ersten Eintrag aktivieren */
  19.  
  20. DO FOR numAdr
  21.               /* Etikett ausdrucken. Falls nicht internes Format
  22.                  ADM-Etikettformat gewünscht, statt der folgenden
  23.                  Zeile "PRINTLABEL pfad_und_name_der_Etikettdatei"
  24.                  angeben!                                        */
  25.    PRINTLABEL
  26.  
  27.    ACTIVATENEXT
  28.  
  29. END   /* ENDE */
  30.