in reply to Re: Add watermark to a pdf
in thread Add watermark to a pdf
use strict; use PDF::API2; use PDF::Reuse; # specify files my $ifile = "c:/kopie/anlage-h-beg.pdf"; my $ofile = "c:/kopie/new.pdf"; #find out number of pages my $ipdf = PDF::API2->open($ifile); my $nop = $ipdf->pages; $ipdf->end(); #set outfile for PDF::Reuse prFile($ofile); #get font my $intName = prFont("Helvetica"); # assemble watermark text my $string = # save graphic state "q\n" . # Begin Text "BT\n" . # set font and "size" "/$intName 1 Tf\n" . # set a text matrix # 1. width of text # 2. rotation angle (counterclockwise) # 3. inclination (clockwise) # 4. height of text # 5. position x (0=left) # 6. position y (0=bottom) "180 60 -60 180 100 185 Tm\n" . #set rgb-color (values between 0 and 1) #"1 0 0 rg" . #set grayscale (white=1 black=0) "0.9 g\n" . # show text "(Kopie) Tj\n" . # End Text "ET\n" . "Q\n"; #loop over pages for (my $i=1;$i<=$nop;$i++) { #add watermark prAdd ($string); #add original content my $internalName = prForm ( { file => $ifile, page => $i, effect => 'print', tolerant => 'no' } ); #add pagebreak prPage; } #save and close prEnd();
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^3: Add watermark to a pdf
by morryd (Initiate) on Jun 17, 2009 at 05:24 UTC | |
by Anonymous Monk on Aug 07, 2009 at 20:33 UTC | |
|
Re^3: Add watermark to a pdf
by Heffstar (Acolyte) on Mar 23, 2010 at 19:49 UTC | |
|
Re^3: Add watermark to a pdf
by Anonymous Monk on Jun 24, 2008 at 13:41 UTC |