http://qs321.pair.com?node_id=417766


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 (Abbot) 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();

    [download]
[reply]
[d/l]
      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
[reply]
        I found an online pdf watermarking application. Hope it is helpful to a lot of people. http://watermark-images.com/pdf-watermark.aspx
[reply]

      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?

[reply]
      but this only creates empty pages with my watermark....
[reply]

In Section Seekers of Perl Wisdom