Watermark on PDF

[pria]

Hi there,

Is there a way to apply watermark on a pdf and remove the same at a later stage. This needs to be done through DIAdem 11.1.

Can anyone help me on this?

Thanks,

Priya

[ShalimarA]

Hi Priya,

Unfortunately at this time, there's no way to embed a watermark onto a PDF in DIAdem. A workaround is to embed a graphic onto the background of your report template.

[Dia791]

Hello pria,

what we often do, is add a text in "review phase" of the report, e.g. for first customer review, and make it invisible later. For PDF-Export or picture export it will be invisible, but in the Report-Master still available.

Following a sample. You can replace the date&time by your own text and try it.

Option Explicit
Dim sheetNo, CreatedOn
'-------------------------------------------------------------------------------
' Den Text "created on..." mit dem Datum und Uhrzeit sichtbar machen
CreatedOn = 1
' Den Text "created on..." mit dem Datum und Uhrzeit unsichtbar machen
'CreatedOn = 0
'-------------------------------------------------------------------------------
for sheetNo=1 to GraphSheetCount
 Call GraphSheetRefSet(GraphSheetNGet(sheetNo))
    Call sub_CreatedOn
next
'------------------------------------------------------
Call GraphSheetShow(GraphSheetNGet(1))
Call PicUpdate
'------------------------------------------------------
Sub sub_CreatedOn
          '----------------------------------------------------
          '----------------------------------------------------    
        Call GraphObjNew("Freetext","CreateDate") 
        Call GraphObjOpen("CreateDate")         
                  '------------------- Text -----------------------------
              TxtTxt           = "created on @@CurrDate@@"
              TxtFont          = ""
              TxtSize          = 15
                if CreatedOn = 1 then
                   TxtColor         = "grey"
                   TxtColorRGB      = 33554432
                else
                   TxtColor         = ""
                   TxtColorRGB      = 0
                end if
              TxtBold          = 0
              TxtItal          = 0
              TxtUndl          = 0
              TxtStrOut        = 0
              TxtFrame         = 0
              TxtBackColor     = ""
              TxtBackRGB       = 50331647
              TxtBackRGB2      = 15263976
              TxtBackFMode     = "Vertical"
              TxtBackFVariant  = "From bottom"
              '------------------- Position -----------------------
              TxtPosX          = 3
              TxtPosY          = 3
              TxtAng           = 40
              TxtRelPos        = "right"
          '----------------------------------------------------
        Call GraphObjClose("CreateDate")  
          '----------------------------------------------------
End Sub