pomocou perl PDF :: API2 :: SIMPLE - záhlavie a zápätie - perl, perl-modul

Ako dostanem hlavičku a pätu, aby sa nevytlačila na prvú stránku?

odpovede:

Tu je hrubý, ale funkčný príklad:

use strict;
use warnings;
use PDF::API2::Simple;

our $PageNo;

my $pdf = PDF::API2::Simple->new(
file   => "file.pdf",
header => &header,
footer => &footer,
);

$pdf->add_font("Verdana");

for my $page (1..3) {
$pdf->add_page;
$pdf->text( "blah" x 300, autoflow => "on" );
}
$pdf->save;


sub header {
$PageNo++;
return if $PageNo == 1;
shift->text( "Header text here" );
}

sub footer {
return if $PageNo == 1;
shift->text( "page:  " . $PageNo, x => 10, y => 10 );
}