如何生成“嵌入子集”使用 CPAN 模块 PDF::API2 的字体

发布于 2024-11-13 14:23:55 字数 400 浏览 4 评论 0原文

有谁知道如何使用 PDF::API2 生成“嵌入子集”字体？我在其文档中找不到任何内容，它所做的一切似乎只是创建“嵌入”或不嵌入字体：

my $pdf  = PDF::API2->open('blank.pdf');
my $page = $pdf->openpage(1);
my $txt  = $page->text;
my $font = $pdf->ttfont('verdana.ttf');
$txt->textlabel( 170, 170, $font, 20, 'text Embeded TTF font');

另一个模块 Text::PDF::TTFont 继承自 Text::PDF 做得正确。

谢谢！

原文

Does anyone know how to generate an "Embeded subset" font using PDF::API2? I can't find any in its documentation and all it tries to do seem to create either just "Embeded" or not embeded font:

my $pdf  = PDF::API2->open('blank.pdf');
my $page = $pdf->openpage(1);
my $txt  = $page->text;
my $font = $pdf->ttfont('verdana.ttf');
$txt->textlabel( 170, 170, $font, 20, 'text Embeded TTF font');

Another module Text::PDF::TTFont which inherits from Text::PDF does it correctly.

thanks!

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

无可置疑 2024-11-20 14:23:55

我可以创建一个嵌入子集

#!/usr/bin/perl
use strict;
use warnings;
use lib 'PDF-API2-0.73/lib/';


use PDF::API2;

my $text = "A sample text using Noto TTF";

my $pdf  = PDF::API2->new();
my $page = $pdf->page;
my $txt = $page->text;

my $font = $pdf->ttfont('C:/temp/fonts/NotoSans-Bold.ttf');        

$txt->font($font, 25);
$txt->translate(200, 550);
$txt->fillcolor('black');
$txt->text($text);

$pdf->saveas("Noto-TTF.pdf");

I can create an embedded subset

#!/usr/bin/perl
use strict;
use warnings;
use lib 'PDF-API2-0.73/lib/';


use PDF::API2;

my $text = "A sample text using Noto TTF";

my $pdf  = PDF::API2->new();
my $page = $pdf->page;
my $txt = $page->text;

my $font = $pdf->ttfont('C:/temp/fonts/NotoSans-Bold.ttf');        

$txt->font($font, 25);
$txt->translate(200, 550);
$txt->fillcolor('black');
$txt->text($text);

$pdf->saveas("Noto-TTF.pdf");

回复收藏 0 原文

~没有更多了~