#!/bin/perl

use PDF::Report;

my $pdf = new PDF::Report(
                          PageSize => 'A4',
                          PageOrientation => 'Portrait'
);

$pdf->newpage(1);
$pdf->setFont('Helvetica-bold');
$pdf->setSize(14);
my ($width, $height) = $pdf->getPageDimensions();

$pdf->centerString(0, $width, $height-40, "Reporte");

$pdf->setFont('Helvetica');
$pdf->setSize(10);

open (DATOS,"reporte.html");
while (@linea = <DATOS>){
    my $text1= "@linea";
    $pdf->addParagraph($text1, 30, $height-70, $width-60, 30, 25, 10);

}

open(PDF, "> reporte.pdf") or die "ERROR: No puedo escribir en reporte.pdf: $!\n";
print PDF $pdf->Finish();
close(PDF);
 
exit;

while (@linea = <DATOS>){
    my $text1= "@linea";
    $pdf->addParagraph($text1, 30, $height-70, $width-60, 30, 25, 10);

}

while (my $text1 = <DATOS>){
  $pdf->addParagraph($text1, 30, $height-70, $width-60, 30, 25, 10);
}

#!/bin/perl
use PDF::FromHTML;
   my $pdf = PDF::FromHTML->new( encoding => 'utf-8' );
    $pdf->load_file('reporte.html');
    $pdf->convert(
        # With PDF::API2, font names such as 'traditional' also works
        Font        => 'font.ttf',
        LineHeight  => 10,
        Landscape   => 1,
    );
    $pdf->write_file('reporte.pdf');