Code Samples - Neevia PDFresize/scale

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

   <%
     Dim NVresize : Set NVresize = Server.CreateObject("PDFresize.Neevia")
   
     NVresize.Paper = "letter"
     NVresize.Orientation = 2
     NVresize.Scale = true
 
     Dim retVal : retVal = NVresize.resizePDF("c:\in.pdf","c:\out.pdf")
     If retVal <> 0 Then
       Response.Write "Error code=" & CStr(retVal)
     Else
       Response.Write "Done"
     End If
   %>