Splitting a pdf report into individual files

All replies

• 

  

  1

  Sign in to vote

  Hello,

  You should ask on iTextSharp on StackOverflow

  Karl

  ---

  When you see answers and helpful posts, please click Vote As Helpful, Propose As Answer, and/or Mark As Answer.
  My Blog: Unlock PowerShell
  My Book: Windows PowerShell 2.0 Bible
  My E-mail: -join ('6F6C646B61726C406F75746C6F6F6B2E636F6D'-split'(?<=\G.{2})'|%{if($_){[char][int]"0x$_"}})

  Wednesday, April 1, 2015 8:29 PM
• 

  

  0

  Sign in to vote

  For those who may be in a similar situation, here is the code I used to successfully split out the pdf to individual reports (you will need to have the itextsharp.dll file and add it as a reference to your project):

  Imports iTextSharp.text.pdf
  Imports iTextSharp.text
  Imports iTextSharp.text.pdf.parser

  Dim reader As iTextSharp.text.pdf.PdfReader = Nothing
  Dim doc As iTextSharp.text.Document = Nothing
  Dim pdfCpy As iTextSharp.text.pdf.PdfCopy = Nothing
  Dim page As iTextSharp.text.pdf.PdfImportedPage = Nothing
  Dim totpages As Integer
  Dim ExportRptPath As String
  Dim counter As Integer

  reader = New iTextSharp.text.pdf.PdfReader("C:\rptname.pdf")
  totpages = reader.NumberOfPages

  
  For counter = 1 To totpages
   
      doc = New iTextSharp.text.Document(reader.GetPageSizeWithRotation(1))
      ExportRptPath = "C:\test\newrpt_counter.pdf"
      pdfCpy = New iTextSharp.text.pdf.PdfCopy(doc, New IO.FileStream(ExportRptPath, IO.FileMode.Create))
      doc.Open()
      page = pdfCpy.GetImportedPage(reader, counter)
      pdfCpy.AddPage(page)
      doc.Close()
  Next

  • Marked as answer by J-Bal Monday, June 15, 2015 1:39 PM

  Monday, June 15, 2015 1:39 PM