PDF によるﾊｶﾞｷ印刷をしようと思うのだが[Perl]
(2014-05-16 15:44:41) by shinoda

< ﾍﾟｰｼﾞ移動: 1 2 >

$page->mediabox(&mm2px(100), &mm2px(148)); # ﾊｶﾞｷｻｲｽﾞ(100mm x 148mm)

my $font2 = $pdf->cjkfont("KozGo"); # 日本語ｺﾞｼｯｸ

# 郵便番号 742-0301 の処理

# 郵便番号1(3桁)

my @post1 = split //, '742'; # 3文字にﾊﾞﾗす

my $text = $page->text();

$text->font($font2, 20);

for (my $i = 0; $i < 3; $i++) {

$text->translate(&mm2px(45.5 + ($i * 7.0)), &mm2px(148 - 18.5));

$text->text($post1[$i]);

}

# 郵便番号2(4桁)

my @post2 = split //, '0301'; # 4文字にﾊﾞﾗす

$text = $page->text();

$text->font($font2, 20);

for (my $i = 0; $i < 4; $i++) {

$text->translate(&mm2px(67 + ($i * 6.7)), &mm2px(148 - 18.5));

$text->text($post2[$i]);

}

sub mm2pt {

# ﾐﾘを 72DPI 時のﾋﾟｸｾﾙ数に変換

my $mm = $_[0];

my $px = $mm / 25.4 * 72;

return $px;

}