Re: Excel saving as PDF as 1 page

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

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

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

Comment on Re: Excel saving as PDF as 1 page Download Code

Replies are listed 'Best First'.
Re^2: Excel saving as PDF as 1 page by merrymonk (Hermit) on Oct 24, 2015 at 21:34 UTC
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?	[reply]
Re^3: Excel saving as PDF as 1 page by poj (Abbot) on Oct 25, 2015 at 08:46 UTC
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 );` [download] poj	[reply] [d/l]
Re^4: Excel saving as PDF as 1 page by merrymonk (Hermit) on Oct 25, 2015 at 09:22 UTC
Brilliant. That works just as I wanted it to. Thank you for your help. It was good to find it first thing this morning.	[reply]
Re^3: Excel saving as PDF as 1 page by soonix (Chancellor) on Oct 25, 2015 at 07:50 UTC
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.	[reply] [d/l]
Re^4: Excel saving as PDF as 1 page by merrymonk (Hermit) on Oct 25, 2015 at 09:24 UTC
(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.	[reply]