#!/usr/bin/perl -w 
# 
require 5.005; 
use POSIX; 
use strict; 
use warnings; 
 
use PDF::API2::Simple; 
use PDF::Table; 
 

my $page_num = 1; 
my $pdf = PDF::API2::Simple->new(  
                                  file => '04_headers.pdf', 
                          header => \&header, 
                          footer => \&footer 
                          ); 
my $pdftable = new PDF::Table;  
$pdf->add_font('VerdanaBold'); 
$pdf->add_font('Verdana'); 
$pdf->add_page(); 
#####PAGE 1###################### 
 
my $strokecol = $pdf->strokecolor; 
 
 
$pdf->next_line;  
$pdf->next_line; 
$pdf->set_font( 'VerdanaBold' ); 
$pdf->text('Hello World:', 
     x => $pdf->margin_left+20, 
     font_size => 10); 
$pdf->next_line;  
 
 
  
###############PAGE2#################################3 
$pdf->add_page();   
  
 
$pdf->next_line; 
 
 
############################### 
################################             
my $data =[ 
    ["col1","col2","col3"], 
    ["333","333","123"], 
    ["333","333","123"], 
    ["333","333","123"], 
    ["333","333","123"], 
    ["333","333","123"], 
    ["333","333","123"], 
    ["333","333","123"], 
    ["333","333","123"], 
    ["333","333","123"], 
    ["333","333","123"], 
    ["333","333","123"], 
    ["333","333","123"], 
    ["333","333","123"], 
    ["333","333","123"], 
    ["333","333","123"], 
    ["333","333","123"], 
    ["333","333","123"], 
    ["333","333","123"], 
    ["333","333","123"], 
    ["333","333","123"], 
        ["333","333","123"], 
    ["333","333","123"], 
    ["333","333","123"], 
    ["333","333","123"], 
    ["333","333","123"], 
    ["333","333","123"], 
    ["333","333","123"], 
    ["333","333","123"], 
    ["333","333","123"], 
    ["333","333","123"], 
    ["333","333","123"], 
    ["333","333","123"], 
    ["333","333","123"], 
    ["333","333","123"], 
    ["333","333","123"], 
    ["333","333","123"], 
    ["333","333","123"], 
        ["333","333","123"], 
    ["333","333","123"], 
    ["333","333","123"], 
    ["333","333","123"], 
    ["333","333","123"], 
    ["333","333","123"], 
    ["333","333","123"], 
    ["333","333","123"], 
    ["333","333","123"], 
    ["333","333","123"], 
    ["333","333","123"], 
    ["333","333","123"], 
    ["333","333","123"], 
    ["333","333","123"], 
    ["333","333","123"], 
    ["333","333","123"], 
    ["333","333","123"], 
        ["333","333","123"], 
    ["333","333","123"], 
    ["333","333","123"], 
        ["333","333","123"], 
    ["333","333","123"], 
    ["333","333","123"], 
    ["333","333","123"], 
    ["333","333","123"], 
    ["333","333","123"], 
    ["333","333","123"], 
    ["333","333","123"], 
    ["333","333","123"], 
    ["333","333","123"], 
    ["333","333","123"], 
    ["333","333","123"], 
    ["333","333","123"], 
    ["333","333","123"], 
    ["333","333","123"], 
    ["333","333","123"], 
        ["333","333","123"], 
    ["333","333","123"], 
    ["333","333","123"], 
        ["333","333","123"], 
    ["333","333","123"], 
    ["333","333","123"], 
    ["333","333","123"], 
    ["333","333","123"], 
    ["333","333","123"], 
    ["333","333","123"], 
    ["333","333","123"], 
    ["333","333","123"], 
    ["333","333","123"], 
    ["333","333","123"], 
    ["333","333","123"], 
    ["333","333","123"], 
    ["333","333","123"], 
    ["333","333","123"], 
    ["333","333","123"], 
 
    ];  
 
 # build the table layout 
$pdftable->table( 
     # required params 
     $pdf->pdf, 
     $pdf->current_page, 
     $data, 
     x => $pdf->margin_left, 
     w => $pdf->effective_width, 
     start_y => $pdf->margin_bottom + 500, 
     next_y  => 750, 
     start_h => 500, 
     next_h  => 720, 
     # some optional params 
     new_page_func  => $pdf->add_page(), 
     header_props          => {  
                font       => $pdf->current_font, 
        font_size  => 9, 
        font_color => '#000000', 
        bg_color   => '#FF9046', 
        repeat     => 1,  
         }, 
     font => $pdf->current_font, 
     font_size      => 9, 
     padding => 5, 
     padding_right => 10, 
     #background_color_odd  => "gray", 
     #background_color_even => "lightblue", 
      
      #cell background color for even rows 
  );  
################################################3 
$pdf->add_page();             
 
$pdf->save(); 
  
  
sub header { 
    my $strokecolor = $pdf->strokecolor; 
     my $y = $pdf->height - 20; 
    my $x = ($pdf->width / 2);  
    $pdf->stroke_color( '#555555' ); 
  
    $pdf->next_line; 
    $pdf->set_font( 'VerdanaBold' ); 
    $pdf->text( 'Header ', 
            x => $x, 
                   y => $y, 
                   font_size => 10, 
            align =>'center' ); 
  
    $pdf->y( $pdf->y - 5 ); 
     
  
     
} 
  
sub footer { 
 
    my $strokecol = $pdf->strokecolor; 
    $pdf->stroke_color( '#000000' ); 
    $pdf->line(     x => $pdf->margin_left, 
            y => 40, 
            to_x => $pdf->effective_width, 
            to_y => 40, 
            stroke => 'on', 
            fill => 'off', 
            width => 1 ); 
    my $fillcolor = $pdf->fill_color; 
    my $font = $pdf->current_font; 
  
    $pdf->fill_color( '#000000' ); 
     
    $pdf->set_font( 'VerdanaBold' ); 
    $pdf->text( 'footer1', 
        x => $pdf->margin_left, 
        y => 30, 
        font_size => 9, 
        align => 'left' ); 
    $pdf->next_line; 
    $pdf->set_font( 'Verdana' ); 
    $pdf->text( ' footer 2', 
        x => $pdf->margin_left, 
        y => 20, 
        font_size => 8, 
        align => 'left' ); 
    $pdf->set_font( 'VerdanaBold' ); 
    $pdf->text( 'Page ' . $page_num++, 
        x => $pdf->effective_width, 
        y => 20, 
        align => 'right' ); 
    $pdf->next_line; 
    $pdf->set_font( 'Verdana' ); 
    $pdf->text( 'footer 3', 
        x => $pdf->margin_left, 
        y => 10, 
        font_size => 6, 
        align => 'left' ); 
     
    $pdf->fill_color( $fillcolor ); 
    $pdf->current_font( $font ); 
}
[download]