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 = false
 
    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
  %>