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

   Dim pageToExtract As Integer = 2

   Dim DC As Object : DC = CreateObject("Neevia.docCreator")

   Dim RVal As Integer
   RVal = DC.extractPDFPages("d:\test.pdf","d:\page.pdf", _
                             pageToExtract, pageToExtract)

   DC = Nothing

   If RVal=0 Then
     MsgBox("Done !!!")
   Else
     MsgBox("There was an error extracting the page !!!")
   End If