Hi Monks!
I am trying to underline a sentence, but I cant get it to work. Nothing gets underlined.
Can anyone help me on this?
#!/usr/bin/perl
use strict;
use warnings;
use PDF::API2;
my $font_size=10;
my $pdf = PDF::API2->new();
#A4 Landscap
$pdf->mediabox('Letter');
my $page = $pdf->page;
# font settings
my $fnt = $pdf->corefont('Helvetica',-encode => 'latin1');
my $boldfont=$pdf->corefont('Helvetica-Bold',-encode => 'latin1');
my $txt = $page->text(-underline => 'auto');
my $top = 700;
my $left_margin = 50;
$txt->textstart;
$txt->font($boldfont,$font_size);
$txt->translate( 400, $top-65 );
$txt->text( "Trying to underline this sentence!" );
$pdf->saveas('test.pdf');
Thanks for helping!