Kawaninon.com

写真やサンプルプログラムなど、
日々の気になった出来事をメモしてる個人的なブログです。

A1サイズのPDFファイルをPerlモジュールのPDF::API2で生成

PerlモジュールのPDF::API2を使用して、A1サイズのPDFファイルを出力しました。)

#!/opt/local/bin/perl
 
use strict;
use warnings;
use PDF::API2;
 
my $pdf = PDF::API2->new();
my $page = $pdf->page();
$page->mediabox("A1");
my $font = $pdf->cjkfont("KozMin", -encode => "utf-8");
my $text = $page->text();
$text->font($font, 16);
$text->fillcolor("#FF0000");
$text->translate(10, 380);
$text->text("A1");
$text->cr("-24");
$text->text("594mm x 841mm");
 
print "Content-type: application/pdf; charset=utf-8\n\n";
print $pdf->stringify();
 
exit;

サンプルコードと出力結果です。A1サイズのPDFファイルを出力しました。cjkfontでフォントを小塚明朝、fontでフォントのピクセルサイズ、fillcolorでフォントの色、translateで描画を開始する左下からの座標、textで描画する文字列、crで改行をフォントサイズの1.5倍に設定しています。

スポンサーリンク

これらを使ってサイトを運用しています

QRコード

QR Code