Re: Something usefull?

[Wolfgang Schuster <schuster.wolfgang@googlemail.com>]

[-- Attachment #1: tableHoursToDo.tex --]
[-- Type: application/octet-stream, Size: 1466 bytes --]

\usemodule[defaults]
\setuppagenumbering[location={footer,right}]
\setupbodyfont[roman, 12pt]
\setuppapersize[A7][A4]
\setuplayout[
  backspace=5mm,      footer=1.5\bodyfontsize,                header=5mm,
  height=96.5mm,      margin=5mm,         width=63.5mm,       topspace=4mm,
]
\setuparranging[2*8,rotated]

\def\getTableHours#1%
  {\dorecurse{#1}
     {\setupTABLE[c][each][align=middle,height=\lineheight]
      \setupTABLE[r][1][background=color,backgroundcolor=darkyellow]
      \setupTABLE[c][each][width=0.20\textwidth]
      \setupTABLE[c][2,4][width=0.30\textwidth]
      \dontleavehmode\vskip-\dimexpr\lineheight+\topskip\relax\par
      \startalignment[middle]
      \bTABLE
        \bTR
        \dorecurse{2}{\bTH Type \eTH \bTH Tijd \eTH}
        \eTR
        \getnoflines{\dimexpr\pagegoal-\pagetotal-3\lineheight\relax}
        \dorecurse{\noflines}{\bTR\dorecurse{4}{\bTD \eTD}\eTR}
      \eTABLE
      \stopalignment
      \page}}

% \def\getTableToDo
%   {\dorecurse{\number\numexpr16-\realpageno+1\relax}
%      {\dontleavehmode\vskip-\dimexpr\lineheight+\topskip\relax\par
%       \vbox to \vsize{\leaders\vbox{\thinrule}\vfill}\page}}

\def\getTableToDo
  {\dorecurse{\number\numexpr16-\realpageno+1\relax}
     {\dontleavehmode\vskip-\dimexpr\lineheight+\topskip\relax\par
      \getroundednoflines\textheight
      \thinrules[n=\noflines]\page}}


\starttext

  \getTableHours{8}

  \setuppagenumber[number=1]

  \getTableToDo

\stoptext

[-- Attachment #2: Type: text/plain, Size: 706 bytes --]


Am 24.01.2009 um 13:46 schrieb Cecil Westerhof:

> I made something usefull and share it with you. Maybe it is usefull
> for other people also.

[...]

> I also have some questions. ;-}
> At the moment there are the same number of the timesheet and the lined
> paper printed. That is not always what you want I think. The one time
> you need more timesheets, the other time you need more lined paper. Is
> there a way to ask for the number of timesheets, print those, and let
> the rest be printed as lined? (I can offcourse also switch to two
> different documents.)
> At the moment the lined paper starts counting from 9. Is there a way
> to reset it to 1?

Take a look at the attached file.

Wolfgang


[-- Attachment #3: Type: text/plain, Size: 487 bytes --]

___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the Wiki!

maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/listinfo/ntg-context
webpage  : http://www.pragma-ade.nl / http://tex.aanhet.net
archive  : https://foundry.supelec.fr/projects/contextrev/
wiki     : http://contextgarden.net
___________________________________________________________________________________