%%\listfiles
\documentclass[10pt]{article}
\usepackage[T1]{fontenc}
\usepackage{lmodern,array,graphicx}
\pagestyle{empty}
\usepackage[dvips,textwidth=72.5mm,textheight=160mm,lmargin=10mm,%
  rmargin=5mm,tmargin=5mm,headheight=0pt,headsep=0pt,footskip=0pt]{geometry}
\parindent=0pt
\baselineskip=6.35mm
\parskip=0pt

\makeatletter
\newcommand*{\InitToks}{\toks@={}}
\newcommand{\AddToks}[1]{\toks@=\expandafter{\the\toks@ #1}}
\newcommand*{\PrintToks}{\the\toks@}

\unitlength=1mm
\def\BOX{\framebox(3.55,2){}}
\newcount\rowNo
\newcommand*{\dynTable}[1]{%
  \begingroup
    \InitToks
    \AddToks{\tabcolsep=0pt\begin{tabular}{c*{11}{>{\centering}p{6.35mm}}}}%
    \AddToks{&&1&2&3&4&5&6&7&8&9&Inv\tabularnewline}
    \rowNo=0 %
    \loop\ifnum\rowNo<#1\relax
      \advance\rowNo by 1
      \AddToks{\strobe & }
      \expandafter\AddToks\expandafter{%
         \the\rowNo & 
         \BOX & \BOX & \BOX & \BOX & \BOX & \BOX & \BOX & \BOX & \BOX & \BOX%
        \tabularnewline}%
    \repeat
   \AddToks{\end{tabular}}%
    \PrintToks
  \endgroup
}
\makeatother

%% strobe marking boxes
%\def\strobe{\rule{3mm}{2.54mm}}
\def\strobe{\rule{0pt}{4mm}\rule{3mm}{2.54mm}}

\begin{document}
\sffamily\small

\hspace{25mm} PREFERENCE

\vspace{1ex}

%% Make nR rows of scoring boxes for answers
\dynTable{28}

\end{document}
