Code Samples - Neevia PDFmerge/split

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17

   <%
     Dim NVmerge : Set NVmerge = Server.CreateObject("PDFMerge.Neevia")
     NVmerge.PDFEncrypt = true
     NVmerge.PDFEncryptionType = "rc4"
     NVmerge.PDFOwnerPassword = "owner"

     ' p - document printing is denied
     ' e - disable extraction of text and graphics
     NVmerge.PDFPermissions = "pe" 

     Dim retVal : retVal = NVmerge.MergePDF("c:\1.pdf+c:\2.pdf", "c:\merged.pdf")
     if retVal<>0 then
       Response.Write "Error code=" & CStr(retVal)
     else 
       Response.Write "Done"
     end if
   %>