Question

我正在尝试使用PDF :: Create在perl中创建pdf文件。我无法在页面的正确位置获取文本。

这是在Windows中运行的现有perl应用程序。它将订阅卡写入一个文本文件，我想将该文本文件转换为pdf文件。我尝试了各种设置，但无法将文本放在正确的位置。我已经从文本文件在线创建了一个pdf，并使用在线Soda PDF获得了文本框的坐标，但是我无法在应用程序中获取它们。

my $kaart=read_text("kaart$myuserid.txt");
    my $pdf = PDF::Create->new(
        'filename' => "kaart$myuserid.pdf",
        "Author" => "Wattem",
        "Title" => "Kaart deelnemer ".$record->{deelnr},
        "CreationDate"=> [ localtime ]
    );
    my $root=$pdf->new_page("MediaBox"=>$pdf->get_page_size('A5'));
    my $page=$root->new_page;
    my $font=$pdf->font('BaseFont' => 'Times-Roman');
    my $toc = $pdf->new_outline('Title' => "Kaart deelnemer ".$record->{deelnr}, 'Destination' => $page);
    $page->block_text({
        page => $page,
        font => $font,
        text => $kaart,
        font_size => 10,
        text_color => [0,0,0],
        line_width => 400,
        start_y => 776,
        end_y => 327,
        'x' => 25,
        'y' => 10
    });
    $pdf->close;

我希望文本框具有与在线PDF转换器和Soda PDF相同的大小和位置。这是Soda PDF给我的文本块信息：
X位置：25.5
Y位置：776.3921
旋转：0
宽度：293.7041
高度：449.2844

在A5 pdf文件上创建文本框的正确设置是什么

0 个答案: