 |
| Example 2: Scale a PDF file (Visual Basic) |
|
|
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
|
|
|
|
I was impressed by how fast, easy to use and cost effective PDFresize is. Not to mention the intuitive graphic interface it comes with. Keep up the good work!
