Re: Excel saving as PDF as 1 page

[soonix]

Can't test this now, but ISTR it should be

$sheet->PageSetup->{FitToPagesWide} = 1;
$sheet->PageSetup->{FitToPagesTall} = 1;

Otherwise it's interpreted as method call instead of attribute access.

[merrymonk]

Thank you. This did not give any failure messages.
Sadly it did not work as the PDF file was written to two pages. Have you any idea how to make it use just one page?

[poj]

try

use Win32::OLE qw(with);
use Win32::OLE::Variant;


my $vtfalse =  Variant(VT_BOOL, 0);  
my $vtpages =  Variant(VT_I4, 1);  
with ($sheet->PageSetup,
  'Zoom'           => $vtfalse,
  'FitToPagesWide' => $vtpages,
  'FitToPagesTall' => $vtpages );

poj

[merrymonk]

Brilliant. That works just as I wanted it to. Thank you for your help. It was good to find it first thing this morning.

[soonix]

This: http://www.mrexcel.com/forum/excel-questions/311404-visual-basic-applications-page-setup-fit-1-1-a.html says you have to set ->{Zoom} to False, but in other situations that property is a numeric zoom factor, so I'd set it to zero.

As for the why, I surmise the zoom factor has higher priority than the "Fit to Page" setting.

[merrymonk]

(This is a reply to your latest comment)
Brilliant. That works just as I wanted it to. Thank you for your help. It was good to find it first thing this morning.