Thank you, Hans and Willi, for your replies!
Kind regards,
Robert Ermers
- Oorspronkelijk bericht -
Van: Willi Egger [EMAIL PROTECTED]
Aan: [EMAIL PROTECTED]
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
___
ntg-context mailing list
[EMAIL PROTECTED]
http://www.ntg.nl/mailman/listinfo/ntg-context