Code Samples - Neevia PDFresize/scale

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

   Dim NVresize : Set NVresize = 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
      MsgBox("Error code=" & CStr(retVal))
   Else
      MsgBox("Done")
   End If