<?php
define('FPDF_FONTPATH','font/');
require('fpdf.php');
class PDF extends FPDF
{
//Columna actual
var $col=0;
//Ordenada de comienzo de la columna
var $y0;
function Header()
{
//Cabacera
global $title;
$this->SetFont('Arial','B',15);
$w=$this->GetStringWidth($title)+6;
$this->SetX((210-$w)/2);
$this->SetDrawColor(0,80,180);
$this->SetFillColor(230,230,0);
$this->SetTextColor(220,50,50);
$this->SetLineWidth(1);
$this->Cell($w,9,$title,1,1,'C',1);
$this->Ln(10);
//Guardar ordenada
$this->y0=$this->GetY();
}
function Footer()
{
//Pie de página
$this->SetY(-15);
$this->SetFont('Arial','I',8);
$this->SetTextColor(128);
$this->Cell(0,10,'Página '.$this->PageNo(),0,0,'C');
}
function SetCol($col)
{
//Establecer la posición de una columna dada
$this->col=$col;
$x=10+$col*65;
$this->SetLeftMargin($x);
$this->SetX($x);
}
function AcceptPageBreak()
{
//Método que acepta o no el salto automático de página
if($this->col<2)
{
//Ir a la siguiente columna
$this->SetCol($this->col+1);
//Establecer la ordenada al principio
$this->SetY($this->y0);
//Seguir en esta página
return false;
}
else
{
//Volver a la primera columna
$this->SetCol(0);
//Salto de página
return true;
}
}
function ChapterTitle($num,$label)
{
//Título
$this->SetFont('Arial','',12);
$this->SetFillColor(200,220,255);
$this->Cell(0,6,"Capítulo $num : $label",0,1,'L',1);
$this->Ln(4);
//Guardar ordenada
$this->y0=$this->GetY();
}
function ChapterBody($fichier)
{
//Abrir fichero de texto
$f=fopen($fichier,'r');
$txt=fread($f,filesize($fichier));
fclose($f);
//Fuente
$this->SetFont('Times','',12);
//Imprimir texto en una columna de 6 cm de ancho
$this->MultiCell(60,5,$txt);
$this->Ln();
//Cita en itálica
$this->SetFont('','I');
$this->Cell(0,5,'(fin del extracto)');
//Volver a la primera columna
$this->SetCol(0);
}
function PrintChapter($num,$title,$file)
{
//Añadir capítulo
$this->AddPage();
$this->ChapterTitle($num,$title);
$this->ChapterBody($file);
}
}
$pdf=new PDF();
$title='20000 Leguas de Viaje Submarino';
$pdf->SetTitle($title);
$pdf->SetAuthor('Julio Verne');
$pdf->PrintChapter(1,'UN RIZO DE HUIDA','20k_c1.txt');
$pdf->PrintChapter(2,'LOS PROS Y LOS CONTRAS','20k_c2.txt');
$pdf->Output();
?>
|