use lib qw(../lib);
use PDF::Report;
my $pdf = new PDF::Report(
PageSize => [5.5*72, 8.5*72], # Custom page size
PageOrientation => "portrait"
);
$pdf->setFont('Helvetica');
$pdf->setSize(12);
my ($width, $height) = $pdf->getPageDimensions();
my $y1 = $height - 30;
my $x1 = 30;
for (1 .. 4) {
$pdf->newpage();
}
my $outpdf = $0;
$outpdf =~ s/pl$/pdf/;
open(PDF, "> $outpdf") or die "Error opening $outpdf: $!\n";
print PDF $pdf->Finish(\&footer);
close(PDF);
exit;
sub footer {
my $pages = $pdf->pages;
$pdf->setFont("Times-roman");
$pdf->setSize(8);
for (1 .. $pages) {
$pdf->openpage($_);
$pdf->centerString($x1, $width-30, 10, "$_ out of $pages pages");
}
}