 |
Example 4: Resize and linearize a PDF file (VB.Net) |
|
 |
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.Linearize = true ' linearize output file
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
|
|
 |
|