pdflib - PDFファイルを生成する

[Perl]

pdflibは動的にPDFファイルを作成してくれるためのライブラリです。
以下はバージョン4の時の使用法

[使用例]
-------------------------------------------------------------------------------------------
#!/usr/bin/perl

use pdflib_pl 4.0;

my $pdf = PDF_new();

#シリアルをセット
PDF_set_parameter($pdf, "serial", "シリアル番号");

#新規PDFファイルの作成
die "Couldn't create pdf file" if(PDF_open_file($pdf, "作成されるPDFのファイル名") == -1);

#テンプレートファイル読み込み
die "Couldn't open template file" if((my $template = PDF_open_pdi($pdf, "./invoice/template.pdf", "", "0") == -1));

#テンプレートを元に新しいページをOPEN
die "Couldn't open PDI" if((my $newpage = PDF_open_pdi_page($pdf, $template, 1, "") == -1));

#ページの幅と高さを取得
my $sheetwidth = PDF_get_pdi_value($pdf, "width", $template, $newpage, 0);
my $sheetheight = PDF_get_pdi_value($pdf, "height", $template, $newpage, 0);

#PDFページ生成
PDF_begin_page($pdf, $sheetwidth, $sheetheight);
PDF_place_pdi_page($pdf, $newpage, 0, 0, 1, 1);
PDF_close_pdi_page($pdf, $newpage);

#PDFにて使用するフォントを準備
my $font = PDF_findfont($pdf, "HeiseiMin-W3", "EUC-H", 0);

#フォントとフォントサイズをセット
PDF_setfont($pdf, $font, 9);

#行間を31ピクセルにセット
PDF_set_value($pdf, "leading", 31);

#文字幅を狭める
PDF_set_value($pdf, "charspacing", -1);

#テキストの印字開始位置を指定
PDF_set_text_pos($pdf, 350, 750);

#印字を開始
PDF_show($pdf, 'テキスト1');
PDF_continue_text($pdf, "テキスト2");

#ページを閉じる
PDF_end_page($pdf);
PDF_close($pdf);
-------------------------------------------------------------------------------------------

[その他のファンクション]
#長方形を生成する
PDF_rect($pdf, 開始のX座標, 開始のY座標, 幅, 高さ);
PDF_stroke($pdf);

#行を揃える(右揃えの場合)
PDF_show_boxed($pdf, "テキスト", 開始のX座標, 開始のY座標, 幅, 高さ, "right", "");

行を揃える際にはPDF_rect()で長方形を生成してからやるとわかりやすい。

---

---