PDF::API2 and barcodes

[stanner56]

I am creating a material label that is required by my customer. I have successfully created the label format using PDF::API2 but now I need to add some barcodes and there I am stuck. Can/would someone offer some guidance?

[gmargo]

You could have a look at PDF::Reuse::Barcode, Barcode::Code128, GD::Barcode.

[almut]

The documentation is a little sparse, but after a bit of digging through the sources, I've managed to come up with something that at least looks like a barcode... :)

You probably want to play with the parameters.  Good luck!

#!/usr/bin/perl

use PDF::API2;

my $pdf  = PDF::API2->new();
my $page = $pdf->page();
my $gfx  = $page->gfx();

my $barcode = $pdf->xo_ean13( # EAN-13 type 

    -code => "0123456789012", # message

    -zone => 20,       # size of bars
    -umzn => 25,       # upper "mending zone"
    -lmzn => 15,       # lower "mending zone"
    #-quzn => 0,       # quiet zone
    #-ofwt => 0.5,     # overflow width

    -font => $pdf->corefont('Helvetica'),
    -fnsz => 12,       # font size

    #-ext  => 1,       # extended character set
    #-extn => '...',   # barcode extension
    #-text => '',      # alternative text
);

$gfx->formimage($barcode, 250, 400, 1);
                         # x    y   size (scaling)

$pdf->saveas("barcode-test.pdf");

(other available types are codabar, code128, 2of5int, 3of9)

[sweetblood]

Check out GD::Barcode::Image you should be able to create the image then insert it into your PDF