Re: address labels

[Willi Egger <w.egger@boede.nl>]

[-- Attachment #1: Type: text/plain, Size: 845 bytes --]

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
>  
>

[-- Attachment #2: logos.tex --]
[-- Type: text/plain, Size: 1474 bytes --]

% 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