Make a page list

[Matthias Teege]

Moin,

i've setup a small Lout style for laser labels. But it
works only for one page. Haw can I hook into the simple
Page List so that if one page is full the next one is taken.

The "mtgetikett" is a simple copy of the doc style. There
are only small changes with margins.

Here the code: 

@SysInclude { mtgetikett }

import @BasicSetup

def @EqualWidth right x { 50c @Wide x  } # believe it or not ;-)

def @EtikettContentPlace { @Galley }

def @Etikett into { @EtikettContentPlace&&following }
  right x { lines @Break { x }}

def @EtikettRow {
3.6c @High @HExpand {
        white @Colour @Box linewidth { 0.0000c } @EqualWidth @VExpand {
                black @Colour @EtikettContentPlace
        }
        ||0.2c
        white @Colour @Box linewidth { 0.0000c } @EqualWidth @VExpand  {
                black @Colour @EtikettContentPlace
        }
        ||0.2c
        white @Colour @Box linewidth { 0.0000c } @EqualWidth @VExpand  {
                black @Colour @EtikettContentPlace
        }
  }
//
}

def @EtikettList {
   @EtikettRow // @EtikettList
}

def @EtikettMesse
  named @Artikel {}
  named @Bezeichnung {}
  named @Preis {}
{
 //0.2c
 @Artikel //0.3c
 -2p @Font { @Bezeichnung } //0.3c
 { 1 2.3 } @Scale { BarCode Base 13p } @Font { address@hidden }
 ||0.2c
 { Helvetica Base 15p } @Font { @Preis }
 ||0.1c -8p @Font { DM }
}
 
@Document
 @InitialFont { Helvetica Base 14p }
//

@Text @Begin
@Etikett { @EtikettMesse 
             @Artikel {110006} 
             @Bezeichnung {Holzschlitten, 20x10x4cm} 
             @Preis {2.95}}
@Etikett { @EtikettMesse 
           @Artikel {112024} 
           @Bezeichnung {Fuellstiefel, 2fach sortiert} 
           @Preis {2.50}}
@EtikettList

Vielen Dank
Matthias