Code Samples - Neevia PDFresize/scale

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

   <%
     Dim NVresize : Set NVresize = Server.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
       Response.Write "Error code=" & CStr(retVal)
     else 
       Response.Write "Done"
     end if
   %>