0
在我的一個應用程序中,需要下載PDF格式的報表詳細信息。使用PDF創建pdf表格:: Report and PDF :: Report ::表格
用於創建PDF文件並在其中寫入表格,使用perl中提供的cpan模塊。 PDF ::報告和PDF ::報告::表。
請找到的代碼示例如下:
#!/usr/bin/perl
use strict;
use warnings;
use PDF::Report;
use PDF::Report::Table;
my $pdf = PDF::Report->new(PageSize => 'A4', PageOrientation => 'Portrait');
my $table = PDF::Report::Table->new($pdf);
my $data = [
['A1' , 'B1' , 'C1'],
['A2' , 'B2' , 'C2'],
['A3' , 'B3' , 'C3'],
['A4' , 'B4' , 'C4'],
['A5' , 'B5' , 'C5'],
['A6' , 'B6' , 'C6'],
['A7' , 'B7' , 'C7'],
['A8' , 'B8' , 'C8'],
['A9' , 'B9' , 'C9'],
['A10' , 'B10' , 'C10'],
['A11' , 'B11' , 'C11'],
['A12' , 'B12' , 'C12'],
['A13' , 'B13' , 'C13'],
['A14' , 'B14' , 'C14'],
['A15' , 'B15' , 'C15'],
['A16' , 'B16' , 'C16'],
['A17' , 'B17' , 'C17'],
['A18' , 'B18' , 'C18'],
['A19' , 'B19' , 'C19'],
['A20' , 'B20' , 'C20'],
['A21' , 'B21' , 'C21'],
['A22' , 'B22' , 'C22'],
['A23' , 'B23' , 'C23'],
['A24' , 'B24' , 'C24'],
['A25' , 'B25' , 'C25'],
['A26' , 'B26' , 'C26'],
['A27' , 'B27' , 'C27'],
['A28' , 'B28' , 'C28'],
['A29' , 'B29' , 'C29'],
['A30' , 'B30' , 'C30'],
['A31' , 'B31' , 'C31'],
['A32' , 'B32' , 'C32'],
['A33' , 'B33' , 'C33'],
['A34' , 'B34' , 'C34'],
['A35' , 'B35' , 'C35'],
['A36' , 'B36' , 'C36'],
['A37' , 'B37' , 'C37'],
['A38' , 'B38' , 'C38'],
['A39' , 'B39' , 'C39'],
['A40' , 'B40' , 'C40'],
['A41' , 'B41' , 'C41'],
];
$pdf->openpage;
$pdf->setAddTextPos(50, 50 );
$table->addTable($data, 400); # 400 is table width
$pdf->saveAs('table.pdf');
結果:與2頁生成的PDF。 頁面連續性丟失行數據。 注意:我面臨的問題附加結果的跨度鏡頭。
問題是:缺少一行數據。缺少一行數據[A37,B37,C37]。
請幫我解決這個問題。 在此先感謝您的幫助。
是否有其他方式創建PDF文件以表格格式顯示報告。或者是否有任何將excel文件轉換爲pdf的機會以表格格式顯示報告。請幫我解決這個問題。 – user142847