# Tabelle der Rechnung erstellen
foreach my $ord(@$order){
	my $xpreis = $ord->{anz} * $ord->{preis};
	$ord->{xpreis} = $xpreis;
	my $cols = recParams($ord, $linepos);

	# nun alles in einer Schleife über die 4 Spalten
	foreach my $col(1,2,3,4){
		$page->string($f1, @{$cols->{$col}});
	}

	$linepos -= 12;
	$sumpreis += $xpreis;
}