Número de Páginas en un PDF

Como ya comenté si un TIFF nos parecía un martirio tenemos los PDF que también son un enredo a la hora de leer las páginas que trae.



Es más esta nos llegó a sacar canas verdes. Para esto se utiliza unas DLL que puedes ver en el siguiente enlace http://www.codeproject.com/KB/string/pdf2text.aspx
Les dejo los imports de la DLL
El siguiente ejemplo nos ayuda a la lectura de estas páginas


Imports org.pdfbox.pdmodel
Imports org.pdfbox.util

Dim Datos As String = ""
Dim doc As PDDocument
Dim stripper As New PDFTextStripper()
Dim son AS Integer = 0
Try
doc = PDDocument.load(filename)
son = doc.getPageCount()
doc.close()
doc = Nothing
Catch ex As Exception
Datos = ""
End Try
Try
doc.close()
doc = Nothing
Catch ex As Exception
End Try


Espero les sirva este código que es muy útil. Además de sacar la cantidad de página investigando un poco más podrian sacar hasta el texto de este.

Espectacular!!!!

Regards.