Am Montag, 11.08.03, um 14:34 Uhr (Europe/Zurich) schrieb Hans Hagen:
Can you make me a small test file?
Here you are: --- snip --- \starttext \enableregime [il1] \definepapersize [filius][width=92mm, height=172mm] \setuppapersize [filius][A4,landscape] \setuparranging [3SIDE] \setupbodyfont [ss,7pt]
% alternative, but markings don't show:
%\setuppaper [nx=3,ny=1, dx=0mm,dy=0mm, topspace=19mm,backspace=10.5mm]
%\setuplayout [page] [topspace=19mm, backspace=10.5mm,
% location=middle, marking=on]
%\setuparranging [XY]
\setuplayout [location=middle,
alternative=singlesided,
grid=no, marking=on,
leftmargin=10mm, leftmargindistance=0mm,
topspace=2mm, header=4mm, footer=0mm,
width=77mm, height=166mm]\def\RegisterPageMark#1#2% #1=Class #2=Text
{\iftrialtypesetting \else
\doglobal\increment\MNamCounter%
\textreference[#1:t:\MNamCounter]{#2}%
\doifreferencefoundelse{#1:t:\MNamCounter}
{\doifundefined{#1:f:\currentrealreference}%
{\setxvalue{#1:f:\currentrealreference}%
{\noexpand\in[#1:t:\MNamCounter]}}
\setxvalue{#1:l:\currentrealreference}%
{\noexpand\in[#1:t:\MNamCounter]}}%
{}%
\fi}\def\GetFirstOnPage#1{\getvalue{#1:f:\realfolio}} % #1=Class
\def\GetLastOnPage#1{\getvalue{#1:l:\realfolio}} % #1=Class\setuppagenumbering [state=start, location={header,inleft}]
\setupheadertexts [][\GetFirstOnPage{MNam}--\GetLastOnPage{MNam}]
\def\Name#1{\bf #1\RegisterPageMark{MNam}{\FirstNCharacters{4}{#1}}}
\startalignment [right]
\setuptabulate [distance=none,indenting=none,inner={}]\starttabulate[|w(30mm)k0|w(30mm)k0|w(18mm)k0|]
\HL
% \input adrlst.tex % script-generated table entries from database like:
\NC\Name{Alter, Hugo}\NC [EMAIL PROTECTED]
\NC Hugostra�e 77 \NC D-66127 Saarbr�cken \NC +49 +6898-12345\NC\NR
\HL
\NC\Name{Zoller, Stefan}\NC [EMAIL PROTECTED]
\NC Zollstra�e 1\NC CH-8274 T�gerwilen\NC +41 +71-12345\NC\NR
\HL
\stoptabulate
\stopalignment
\stoptext
--- snap ---Gr��lis vom Hraban! -- http://www.fiee.net/texnique/
_______________________________________________ ntg-context mailing list [EMAIL PROTECTED] http://www.ntg.nl/mailman/listinfo/ntg-context
