Code Samples - Neevia PDFresize/scale

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

   Dim NVresize : NVresize = CreateObject("PDFresize.Neevia")
 
   NVresize.PageWidth = 5 ' page width = 5 inches
   NVresize.PageHeight = 10 ' page height = 10 inches
   NVresize.Units = 1 ' measurement units = inches

   NVresize.Scale = true ' scale page
   NVresize.ConstrainProportions = true ' constrain proportions when scaling

   NVresize.Center = true ' center page content

   NVresize.Pages = "1" 'resize the first page of the PDF
 
   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