如何从Perl制作PDF表? [英] How can I make PDF tables from Perl?
本文介绍了如何从Perl制作PDF表?的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!
问题描述
是否有任何perl模块可以在指定位置以pdf格式绘制表格,并且每个单元格中的行和列的内容都为空?
Are there any perl modules to draw a table in a pdf at specified position with given rows and columns with an empty content in each cell?
推荐答案
有两个想法:
我使用PDF :: Table生成了一个简单的表,如下所示:
I produced a simple table using PDF::Table like so:
use PDF::API2;
use PDF::Table;
my $pdf = PDF::API2->new( -file => 'table.pdf' );
my $table = PDF::Table->new;
my $page = $pdf->page;
my $data = [
[ 'A1', 'A2', 'A3' ],
[ 'B1', 'B2', 'B3' ],
[ 'C1', 'C2', 'C3' ],
];
$table->table( $pdf, $page, $data,
x => 50,
w => 495,
start_y => 750,
next_y => 700,
start_h => 300,
next_h => 500,
);
$pdf->save;
并使用PDF :: Report :: Table这样的表格:
And with PDF::Report::Table like this:
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', 'A2', 'A3' ],
[ 'B1', 'B2', 'B3' ],
[ 'C1', 'C2', 'C3' ],
];
$pdf->openpage;
$pdf->setAddTextPos( 50, 50 );
$table->addTable( $data, 400 ); # 400 is table width
$pdf->saveAs( 'table.pdf' );
这篇关于如何从Perl制作PDF表?的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!
查看全文