\documentclass[paper = a4,
BCOR = 1mm,
DIV = 14,
headinclude,
fontsize = 10pt
]{scrartcl}
\usepackage[left=2cm,right=1cm,top=1cm,bottom=1cm]{geometry}
\usepackage{ifxetex}
\ifxetex
\usepackage{fontspec}
\defaultfontfeatures{Ligatures=TeX,Scale=1} % To support LaTeX quoting style
%\setromanfont{[GL-Suetterlin.otf]} %Laila
%\setromanfont{Comic Neue Angular} %Laila
\setromanfont{[Bienchen-a.ttf]} %Laila
\else
\usepackage[T1]{fontenc}
\usepackage[utf8]{inputenc}
% und hier die Methode um mit Times New Roman zu schreiben
\usepackage{mathptmx}
\usepackage[scaled=.90]{helvet} %helvet
\usepackage{courier}
\fi
\usepackage{multido}
\newcommand{\forLoop}[4][1]{\multido{\i=#2+#1}{#3}{#4}}
%\forLoop[1]{1}{5} % 1: step 2: start 3: end
%{%
% This is inside the for loop: iteration \alphalph{\i}\endgraf
%}
\setlength{\parindent}{0pt}% Just for this example
% fbox calculations for the minipage
\usepackage{calc}
\setlength{\parindent}{0pt}
\setlength{\fboxsep}{0pt}
\usepackage{tikz}
\newcommand{\lineatur}[1]{ % cm setting
\begin{tikzpicture}
\draw (0,0) -- (#1,0);
\draw (0,3mm) -- (#1,3mm);
\draw (0,6mm) -- (#1,6mm);
\draw (0,9mm) -- (#1,9mm);
\draw[thick] (0,0) -- (0,9mm);
\draw[thick] (#1,0) -- (#1,9mm);
\end{tikzpicture}
}
\begin{document}
%\textbf{\underline{Schulausgangsschrift:}}\\
%{\Large A a B b C c D d E e F e G g H h I i J i K k L l M m N n O o P p Q q R r S s \textbf{ß} T t U u V v W w X x Y y Z z}\\
\forLoop[1]{1}{18} % 1: step 2: start 3: end
{%
{\lineatur{\linewidth}\\\\
}%
}
\lineatur{\linewidth}
\end{document}
