如何通过Perl在Excel的页面设置缩放选项中腾出空间

Question

有没有办法在excel中通过perl只适合1页宽（高应该是空白的），这样我们就可以将缩放设置为＆＃34;在一页上安装所有列＆＃34;。与下面相同。

尝试＆＃34; $ worksheet1-＆gt; fit_to_pages（1,0）;＆＃34; ，但它正在变为1,1（1-wide＆amp; 1-tall）

Answer 1

看，你没有提供任何代码。因此，没有人可以帮助你。该模块正常工作。演示：

use strict;
use warnings;
use Excel::Writer::XLSX;

my $workbook  = Excel::Writer::XLSX->new( 'test.xlsx' );
my $worksheet = $workbook->add_worksheet();

$worksheet->write( 0, 0, "Hi" );
$worksheet->fit_to_pages(1,0);

现在在我的Excel中打开它后，它显示：

或在PageSetup

中

即使您检查xml中的xlsx（例如，将.xlsx重命名为.zip并解压缩），您也会在sheet.xml中找到以下内容snipet：

<pageSetup fitToHeight="0" orientation="portrait"/>

如您所见，生成的.xlsx文件的内容已正确设置为fitToHeight（又名“高”）到0。

所以，正如我在评论中所说的那样，问题就在你身边。