# Tabelle mit der Bestellung, Table header
my $linepos = 550;
my $cols = recParams(
	{
		artnr => 'Artikelnummer',
		arttitle => 'Artikelbezeichnung',
		anz => 'Anzahl',
		preis => 'Einzelpreis '.pack("C", 128),   # EURO
		xpreis => 'Summenpreis '.pack("C", 128),
	},
	$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