RE: Cant change mediabox on existing PDF

Hi,
 
Clipping and moving it around did the trick for us.
 
 
 
#
my @box=($X0, $Y0, $W, $H) ;
 
#
$gfx->rect(@box) ;

#
 
gfx->transform(
-translate => [$BoundingBox[0]-$minX, $BoundingBox[3]-$maxY-($BoundingBox[3]-$a4H)],
) ;

#
$gfx->clip ;

 




__________________________________________________

Van duder60 <duder60-/[email protected]>
Verstuurd vr 12-10-2007 16:51
Aan [email protected]
Onderwerp [perl-text-pdf-modules] Cant change mediabox on existing PDF




I have a bunch of PDFs wirh crop and registration marks on them. I
want to crop them, so that the marks are gone forever. I can change
the cropbox, but I can't get the mediabox to change.

Maybe I am doing things in the wrong order?

Here is my code:

use PDF::API2;

use constant in => 1/72;

$pdf_path = "c:/cf/utils/old.pdf";
$new_pdf_path = "c:/cf/utils/new.pdf";

$pdf = PDF::API2->new;
$import = PDF::API2->open("$pdf_path");
$pdf->importpage($import);
$pdf->mediabox(.5/in, .5/in, 6/in, 9/in);
$pdf->cropbox(.5/in, .5/in, 6/in, 9/in);
$pdf->saveas("$new_pdf_path");

Thanks!


 ******************* BELANGRIJK ! *******************************

De Triple P eSafe virusscanner heeft gevaarlijke inhoud
en/of virus in dit mailtje gevonden en verwijderd.

Bij vragen contact opnemen met de Servicedesk.

**********************************************************************

\HTML Active Content:   Found invalid IMG Tag, Found Web-beacon, Object Removed: 1 'img'