Hans Hagen <[EMAIL PROTECTED]> writes:
> Daniel Pittman wrote:
G'day Hans.
>>Hints about that, or a native TeX method[1], would be very much
>>appreciated. At the moment it is a relatively slow process of manual
>>trial and error.
>
> this is something tex is pretty good at and it runs as fast as normal
>
> how does your current code look? (the solution depends a bit it); think
> of something
Sorry, I should have included that. The cut down version follows; I
have a few more comments and so forth so I can revisit it if I wish.
I didn't make any attempt to automate the process at this stage, but
will have a play with all the suggestion and see if I can get it to
work.
For reference, this is aimed at printing multiple identical labels in
each batch, rather than distinct content on each label, so I don't worry
about the font size changing between the individual labels in the run or
anything.
Regards,
Daniel
\loadmapfile[ec-bitstream-vera.map]
\usetypescriptfile[type-bitstream-vera]
\usetypescript[fiee][bitstream-vera]
\setupbodyfont[bitstream-vera, ss, 10pt]
% Avery Slide labels (L7656) layout.
\definepapersize[L7656][width=46.0mm,height=11.1mm]
\setuppapersize [XY][A4]
\setuppaper [topspace=15.9mm,backspace=6.0mm,dx=4.7mm,dy=1.6mm,nx=4,ny=21]
\setuplayout [page] [topspace=15.9mm,backspace=6.0mm]
\setuplayout [page]
\setuplayout [location=middle]
\setuparranging [XY]
% The layout within the label
\setuplayout[
width=fit,height=fit,
header=1mm,footer=0mm,leftmargin=0mm,rightmargin=0mm,
topspace=1mm,backspace=1mm,
]
\setuppagenumbering[state=stop]
\startbuffer[label]
\vbox{20051112 \crlf Black Rock Cider}
\stopbuffer
\starttext
% skip already printed labels
\dorecurse{30}{~~\page}%
% print a number of labels.
\dorecurse{129}{%
\bf\setupinterlinespace[line=2ex]%
\startalignment[middle]%
\getbuffer[label]%
\stopalignment%
\page}
\stoptext
_______________________________________________
ntg-context mailing list
[email protected]
http://www.ntg.nl/mailman/listinfo/ntg-context
