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

OK, I've read and reread the documentation at http://search.cpan.org/~owen/PDF-Labels-1.8/Labels.pm but can't figure out how to set the fontsize. A quick hand from someone more clueful would be much appreciated.

$PM = "Perl Monk's";
$MCF = "Most Clueless Friar Abbot Bishop Pontiff Deacon";
$nysus = $PM . $MCF;
Click here if you love Perl Monks

  • Comment on Need help RTFM: Setting fontsize with PDF::Labels module

Replies are listed 'Best First'.
Re: Need help RTFM: Setting fontsize with PDF::Labels module
by nysus (Parson) on Sep 25, 2015 at 02:33 UTC
    OK, I had to delve into the source code of the module to get a handle on it. I copied the first list of values found in the source code and changed the second to last value in the list of values from 10 to 8 like so: 
      my $pdf = new PDF::Labels(
      "8.5:11:0.2:0.5:3:10:2.75:1:0.25:0.15:8:12",
      filename=>'/var/www/vt/files/labels.pdf',
      fontsize=>'8',
  );

    [download]
[reply]
[d/l]
      hello, this seems exactly what docs says(before dive into the source):
      @PDF::Labels:PageFormats is a list of known page formats.  Each
        page format is a : delimited list of fields which provide the
        following properties about a page of labels:
...

 $pdf = new PDF::Labels(
                        $PDF::Labels::PageFormats[0],
                                filename=>'labels.pdf',
                                Author=>'PDF Labelmaker',
                                Title=>'My Labels'
                );

      [download]
      I read TFM as follow: the first argument in object creation must be a Page Format. for your convenince there is a global variable in the class that collect an array of common formats. Even if this seems weird is a reasonable manner to do configuration.
      You can also modify only the font size of one of the format in this, not so elegant, way: 
      my $cust_page_format = $PDF::Labels::PageFormats[0];
my $needed_fontsize = 8;
$cust_page_format =~ s/:\d+(:\d+)$/:$needed_fontsize\1/;

      [download]
      L*
      There are no rules, there are no thumbs..
      Reinvent the wheel, then learn The Wheel; may be one day you reinvent one of THE WHEELS.
[reply]
[d/l]
[select]
Re: Need help RTFM: Setting fontsize with PDF::Labels module
by Anonymous Monk on Sep 25, 2015 at 02:10 UTC
    try  $self->{'FontSize'}++;
[reply]
[d/l]
      That did not seem to do anything.
[reply]
        Well, maybe using $pdf instead of $self would help here. 
        $pdf = new PDF::Labels(
                        $PDF::Labels::PageFormats[0],
                                filename=>'labels.pdf',
                                Author=>'PDF Labelmaker',
                                Title=>'My Labels'
                );

$pdf->{'FontSize'} = 8; # or whatever you need
# rest of your code

        [download]
[reply]
[d/l]
        I kinda doubt that :)
[reply]

Back to Seekers of Perl Wisdom