Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"

Re: Add watermark to a pdf

by steves (Curate)
on Dec 28, 2004 at 13:33 UTC ( #417766=note: print w/replies, xml ) Need Help??

in reply to Add watermark to a pdf

It looks to me like you have to add a form to each page of the existing document; i.e., I believe background images in PDF are really what they call forms. I'm not exactly sure how to do that from the examples though. It might be worth posing this question to the author of the module. That seems like a good example to have in the module tutorials/examples if it can be done.

I would probably start by trying to get to each page in the existing document individually, versus adding something to the entire document stream which seems to be what your example is doing.

Replies are listed 'Best First'.
Re^2: Add watermark to a pdf
by holli (Monsignor) on Dec 28, 2004 at 17:58 UTC
    thank you for that "form"-hint. that was what i needed. i finally assembled a script which does perfectly what i wanted to achieve:

    i know that the string concatenation ($string) is a bit clumsy, but i wanted to add the comments. you cannot have comments in quotes, can you?

    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();
      To be a true watermark I would like the text to be on top but have an opacity value that would allow you to see the original document underneath. Does anyone know how to do this? Plus I would like to set the prMbox value based on the original pdf page
        I found an online pdf watermarking application. Hope it is helpful to a lot of people.

      This method of creating a watermark works well except that there are certain things that seem to screw up...

      Images currently inside document will be opaque and overtop of your watermark. Sometimes, the first page of a .pdf is totally blank, aside from the newly added watermark.

      Would anyone have a suggestion as to why this is?

      but this only creates empty pages with my watermark....

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://417766]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (6)
As of 2017-04-26 19:10 GMT
Find Nodes?
    Voting Booth?
    I'm a fool:

    Results (488 votes). Check out past polls.