2015-05-12 115 views
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]。

請幫我解決這個問題。 在此先感謝您的幫助。

+0

是否有其他方式創建PDF文件以表格格式顯示報告。或者是否有任何將excel文件轉換爲pdf的機會以表格格式顯示報告。請幫我解決這個問題。 – user142847

回答

0

很好,當我運行代碼,我得到

commandPrompt > ./makepdf.pl 

    Useless use of greediness modifier '?' in regex; marked by <-- HERE in m/(\S{20}? <-- HERE)(?=\S)/ at /usr/local/share/perl/5.20.2/PDF/Table.pm line 386. 
    !!! Warning: !!! Incorrect Table Geometry! Setting bottom margin to end of sheet! 
    at /usr/local/share/perl/5.20.2/PDF/Report/Table.pm line 94. 
    !!! Warning: !!! Incorrect Table Geometry! Setting bottom margin to end of sheet! 
    at /usr/local/share/perl/5.20.2/PDF/Report/Table.pm line 94. 

我認爲

設置下邊距結束板材的!

!!! Warning: !!! Incorrect Table Geometry! 

將有什麼用它做。