Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
PerlMonks  

Underline Text with PDF::API2

by Anonymous Monk
on Apr 13, 2016 at 20:37 UTC ( [id://1160344]=perlquestion: print w/replies, xml ) Need Help??

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

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!

Replies are listed 'Best First'.
Re: Underline Text with PDF::API2
by snoopy (Curate) on Apr 13, 2016 at 21:38 UTC
    Hi there,

    PDF::API2 confusingly has two text methods, one on PDF::API2::Page to get the text content, then a second on that PDF::API2::Content object to output the text. It's the second that takes the -underline => 'auto' option.

    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(); 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!", -underline => 'auto' ); $pdf->saveas('test.pdf');
      Thank you, great help!

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: perlquestion [id://1160344]
Approved by stevieb
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others studying the Monastery: (3)
As of 2024-04-26 06:16 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found