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

Question

有谁知道如何使用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的模块Text::PDF::TTFont正确。

谢谢！

Answer 1

我可以创建一个嵌入式子集

#!/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");