Community  »  Perl: Allgemeines Forum

PDF::Create - dynamisch Seiten hinzufügen	Seitenanfang
Hallo, ich benutze das Modul PDF::Create um regelmäßig automatisiert Reports zu erstellen. In die PDF-Datei kommt eigentlich nur Zeilen, die aus der Datenbank abgefragt wird. Dieses Ergebnis kann aber 10 oder 10000 Einträge umfassen. 10000 Einträge würden ja nicht auf eine Seite passen. Bei PDF::Create kann man aber nur "händisch" neue Seiten mit my $page2 = $root->new_page; anlegen. Sehe ich das richtig? Gibt es eine Möglichkeit automatisch neue Seiten anzulegen, wenn die Zeilenanzahl zu groß für eine Seite ist? Bis jetzt umgehe ich es umständlich aber nur bis 1000 Einträge. Sieht sehr unprofessionell aus: (Ich gehe jede Ergebniszeile durch, nebenbei läuft ein counter c) if ($c < 50){ $page->stringl($daten); } elsif ($c >= 50 && $c < 110){ if ($c == 50){ $page2 = $root->new_page; } $page2->stringl($daten); } elsif ($c >= 110 && $c < 170){ if ($c == 110){ $page3 = $root->new_page; } $page3->stringl($daten); } elsif ($c >= 170 && $c < 230){ if ($c == 170){ $page4 = $root->new_page; } $page4->stringl($daten); } ...usw... Die zahlen sind so komisch, weil auf die erste seite 50 Zeilen passen und auf die weiteren 60. Wäre für Hilfe dankbar! Gruß Stefan Datum: 06.12.2006-16:37
re: PDF::Create - dynamisch Seiten hinzufügen	Seitenanfang
Ich habe eine Lösung gefunden. Falls es wem hilft: [code] my $c = 0; my $page = $root->new_page(); while(my ($daten) = $sth->fetchrow_array()){ if($c == 50 or ($c -50) % 60 == 0){ $page = $root->new_page(); } $page->stringl($daten); $c++; } [/] Thanks to renee! Datum: 08.12.2006-07:50