Re: [NTG-context] address labels

11 Jan 2004

      Thank you, Hans and Willi, for your replies!

Kind regards,

Robert Ermers

----- Oorspronkelijk bericht -----
Van: Willi Egger 
Aan: 
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