Короче говоря, все, что я на самом деле пытаюсь сделать, - это печатать свои отчеты на половине листов.Кинко разрубил пачку бумаги для принтера пополам, и мой лазерный принтер с радостью засасывает их и правильно распечатывает отчеты, если размер бумаги в отчете Excel установлен точно на 8,5 "x 5,64".
Это легко сделать в Excel, но это единственная настройка, в моем проекте я не смог автоматизировать с помощью Perl использование Spreadsheet :: WriteExcel .В документации CPAN говорится, что вы можете выбрать один из размеров по умолчанию, обычно доступных в Excel, но не предоставляется возможность указать свой собственный размер бумаги.
Даже если вы задаете нужный размер в Excelзаранее, делая его доступным в будущих электронных таблицах, в качестве одного из выбранных вами размеров бумаги, кажется, что нет индекса, использующего set_paper ($ index) , который бы указывал этот вновь установленный нестандартный размер.
Заранее спасибо!
#!/usr/local/gnu/bin/perl --
use strict;
use warnings;
use Spreadsheet::WriteExcel;
my $repWB = Spreadsheet::WriteExcel->new('../tmp/test.xls');
my $repWS = $repWB->add_worksheet('AA');
$repWS->set_paper(1);