documentclass[ngerman,a4paper,25pt]{scrartcl}
usepackage[11pt]{moresize}
usepackage{babel}
usepackage{slantsc}
usepackage{array}
usepackage{amsmath}
usepackage{fix-cm}
setcounter{secnumdepth}{0}
pagestyle{empty}
usepackage{ragged2e}

input Sanremo.fd
newcommand*initfamilySanRemo{usefont{U}{Sanremo}{xl}{n}}
usepackage{tikz}
input ArtNouvc.fd
newcommand*initfamilyArtNouvc{usefont{U}{ArtNouvc}{xl}{n}}

usepackage{calligra}
usepackage[T1]{fontenc}

begin{document}
begin{Center}
                                                                    foreach n in {Heinrich, Justus, Julius}{par

  normalfontcalligra
  begin{tikzpicture}[align=center]

    % draw (0,0) rectangle (108mm,41mm) node[pos=.5, align=center] {Hugefontsize{40}{70}selectfontn};
    node (rect) [rectangle, draw, minimum width=108mm, minimum height=41mm] at (0,0) {};
    node [below] at (rect.north) {Hugefontsize{40}{70}selectfontn};
  end{tikzpicture}
  vspace{5mm}

}


end{Center}
end{document}