Re: address labels

["R. Ermers" <r.ermers@hccnet.nl>]

Thank you, Hans and Willi, for your replies!

Kind regards,

Robert Ermers

----- Oorspronkelijk bericht -----
Van: Willi Egger <w.egger@boede.nl>
Aan: <ntg-context@ntg.nl>
Verzonden: zondag 11 januari 2004 12:55
Onderwerp: Re: [NTG-context] address labels


> Hi Robert,
>
> while composing my solution to your question Hans was of course faster
> and gives immediately multiple approaches.
> You might want to have a look at my solution because it is basically
> intended to print addres-labels.
> Because of restriction of the meilinglist the picture is not included,
> but you can simply replace the picture in the
> logo definition ...
>
> Success!
> Kind regards Willi
>
> R. Ermers wrote:
>
> >Hi contexers,
> >
> >I am trying to make context do what I want. What I needed this weekend,
are
> >address labels, which I want to fill with my own logo (not the
addresse's).
> >
> >Making one label is no problem, but I rather would like to have context
make
> >and typeset a large number of them on a sheet, to be precise: 9x3 (sizes:
> >7mm x 32mm).
> >
> >Does anyone have a clue how this can be done?
> >
> >Kind regards,
> >
> >Robert Ermers
> >
> >
>


----------------------------------------------------------------------------
----


> % Etiketten for address labels format 45 by 100mm
> % Context file
> % filename: logos.tex
> % Willi Egger
> % january 2004
>
> \setupoutput[pdftex]
>
> \mainlanguage[nl]
> \language[nl]
> \setuppagenumber[state=stop]
> \setupcolors[state=start]
> \usetypescript[modern][texnansi]
> \setupbodyfont[modern,ss,12pt]
>
> \definepapersize[Etiket][height=42.3mm,width=105mm]
> \setuppapersize [Etiket][A4,portrait]
> \setuppaper
>     [topspace=0mm,
>     backspace=0mm,
>     dx=2mm,
>     dy=0mm,
>     nx=2,
>     ny=7,
>     margin=0,
>     width=210mm,
>     height=297mm]
> \setuplayout
>     [topspace=4mm,
>     backspace=8mm,
>     margin=0mm,
>     width=96mm,
>     height=34mm,
>     header=0mm,
>     footer=0mm]
> \setuparranging[XY]
>
> \definelayer[Etiket][width=\textwidth, height=\textheight]
> \setupframedtexts[frame=off,width=\textwidth]
>
> \def\Logo%
>     {\externalfigure[wooden_coptic][height=\textheight]}
>
> %\input adreslist         %Contains the addresses as given below:
>
> % \startbuffer[Adr1]
> %    \framedtext{%
> %    \startlines
> %    Mr. Robert Ermers \\
> %    \CONTEXT-technician\\
> %    Whereeverstreet 5\\
> %    7000 \TEX land
> %    \stoplines}
> % \stopbuffer
>
> \def\Addresses{10}
>
> \showframe
>
> \starttext
> \dorecurse{\Addresses}{%
>     \setlayer
>        [Etiket]
>        [preset=leftbottom,location={right,top},y=-3mm,x=-3mm]
>        {\switchtobodyfont[10pt]\getbuffer[Adr\recurselevel]}
>     \setlayer
>       [Etiket]
>       [preset=lefttop,location={right,bottom}]
>       {\switchtobodyfont[5pt]\Logo}
>     \placelayer[Etiket]}
> \stoptext
>