# Tabelle mit der Bestellung, Bestellnummer nicht vergessen
			my $linepos = 520;
			my $cols = recParams(
				{
					artnr => 'Artikelnummer',
					arttitle => 'Artikelbezeichnung',
					anz => 'Anzahl',
					preis => 'Einzelpreis',
					xpreis => 'Summenpreis',
				},
				$linepos
			);
			# nun alles in einer Schleife über die 4 Spalten
			foreach my $col(1,2,3,4){
				$page->string($f1, @{$cols->{$col}});
			}
			# damit ist ersteinmal der Tabellenheader erzeugt


		# Record-Hilfsfunktion
		sub recParams{
			my $rec = shift; # {artnr, arttitle, anz, preis, xpreis}
			my $ypos = shift;
			# Hashref für den Return, Parameter für die Spalten
			my $params = {
				1 => [10, 40, $ypos, "$rec->{arttitle}/$rec->{artnr}"],
				2 => [10, 310, $ypos, $rec->{anz}, 'r'],
				3 => [10, 400, $ypos, $rec->{preis}, 'r'],
				4 => [10, 490, $ypos, $rec->{xpreis}, 'r'],
			};
			return $params;
		}