Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number
 
PerlMonks  

Re: PDF::API2 and barcodes

by almut (Canon)
on Dec 22, 2009 at 19:26 UTC ( #813960=note: print w/ replies, xml ) Need Help??


in reply to PDF::API2 and barcodes

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)


Comment on Re: PDF::API2 and barcodes
Select or Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://813960]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (11)
As of 2015-07-06 06:12 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (70 votes), past polls