Unable to get the mediabox (file size) to change

[cupsman]

I want to modify this pdf so it's 86 X 327pts and rotation to 270. The rotation works but I can't get it to 86 X 237pts

I need it to be: Page size: 86 x 327 pts Page rot: 270

Here's the current size of the pdf with pdfinfo: Page size: 326.05 x 85.05 pts Page rot: 0 File size: 10256 bytes Optimized: no PDF version: 1.4

I'm unable to get the document to 86 X 327 pts and tried with various settings. It changes it but the 2nd coordinate never gets above 85 pts.

!/usr/bin/perl

use strict; use PDF::API2; my $gpage;

Open an existing PDF file

my $pdf = PDF::API2->open('/tdata/onetest.pdf');

my $page = $pdf->page();

$gpage = $pdf->openpage(1);

Get page info

$gpage->rotate(270); my @rectangle = $gpage->page_size(); print "...Page Size: @rectangle..\n";

set Media Size

$gpage->boundaries(media => [0, 0, 6 72, 4 72]);

show new settings

my @rectangle = $gpage->page_size(); print "...Page Size: @rectangle..\n";

my @box = $gpage->get_mediabox(); print "... Media Box: @box ... \n";

$gpage->mediabox(86,327); my @box = $gpage->get_mediabox();

print "... Media Box: @box ... \n";

$pdf->saveas("test.pdf");

Output of the sscript ...Page Size: 0 0 612 792.. ...Page Size: 0 0 612 792.. ... Media Box: 0 0 432 288 ... ... Media Box: 0 0 86 327 ...

pdfinfo of the files shows: Page size: 86 x 85.05 pts Page rot: 270 File size: 11166 bytes Optimized: no PDF version: 1.4

######################################################## PDF-API2-2.043 CPAN

[cupsman]

After working on this longer I found there was a crop box in the page and once I cleared that I was able to get the page size correctly.

my @cropb = $gpage->get_cropbox(); print "... Crop Box @cropb ... \n"; ... Crop Box 0 0 326.05 85.05 ...

$gpage->cropbox(0); print "... Crop Box @cropb ... \n";