Hello,
Thank you up front for any help that can be given.
I have a 2010 VB.Net PDF Merge function that works great. (See belows snipit)
The only issue I am running into is that the function is not releasing the separate pdf files unless I turn off the program.
For example I have to merge 40 pdf files into one.
I pass the array of pdf names, the function then creates a new pdf file by merging the 40 existing pdf files.
I now have 41 files. When I go to delete the unmerged pdf files I get an error that a program has them in use and I can not delete them.
If I close the program I can then delete the files.
I use the close command for the document
Thanks,
Todd
I populate the input array with the locations of each pdf file and their name
Dim output As String = ""
REAPSaveFileDialog.Filter = "PDF Files (*.pdf*)|*.pdf"
REAPSaveFileDialog.FileName = RequestNumber
If REAPSaveFileDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
output = REAPSaveFileDialog.FileName
End If
If MergePdfFiles(input, output) = True Then
MessageBox.Show("Files successfully merged.")
Else
MessageBox.Show("Files did not merged successfully")
End If
Public Function MergePdfFiles(ByVal pdfFiles() As String, ByVal outputPath As String) As Boolean
Dim result As Boolean = False
Dim pdfCount As Integer = 0 'total input pdf file count
Dim f As Integer = 0 'pointer to current input pdf file
Dim fileName As String = String.Empty 'current input pdf filename
Dim reader As iTextSharp.text.pdf.PdfReader = Nothing
Dim pageCount As Integer = 0 'cureent input pdf page count
Dim pdfDoc As iTextSharp.text.Document = Nothing 'the output pdf document
Dim writer As PdfWriter = Nothing
Dim cb As PdfContentByte = Nothing
'Declare a variable to hold the imported pages
Dim page As PdfImportedPage = Nothing
Dim rotation As Integer = 0
'Declare a font to used for the bookmarks
Dim bookmarkFont As iTextSharp.text.Font = iTextSharp.text.FontFactory.GetFont(iTextSharp.text.FontFactory.HELVETICA, _
1, iTextSharp.text.Font.BOLD, iTextSharp.text.BaseColor.WHITE)
Try
pdfCount = pdfFiles.Length
If pdfCount > 1 Then
'Open the 1st pad using PdfReader object
fileName = "C:\REAP\TEMP\" & pdfFiles(f)
reader = New iTextSharp.text.pdf.PdfReader(fileName)
'Get page count
pageCount = reader.NumberOfPages
'Instantiate an new instance of pdf document and set its margins. This will be the output pdf.
'NOTE: bookmarks will be added at the 1st page of very original pdf file using its filename. The location
'of this bookmark will be placed at the upper left hand corner of the document. So you'll need to adjust
'the margin left and margin top values such that the bookmark won't overlay on the merged pdf page. The
'unit used is "points" (72 points = 1 inch), thus in this example, the bookmarks' location is at 1/4 inch from
'left and 1/4 inch from top of the page.
pdfDoc = New iTextSharp.text.Document(reader.GetPageSizeWithRotation(1), 0, 0, 0, 0)
'Instantiate a PdfWriter that listens to the pdf document
writer = PdfWriter.GetInstance(pdfDoc, New FileStream(outputPath, FileMode.Create))
'Set metadata and open the document
With pdfDoc
.AddAuthor("GMC")
.AddCreationDate()
'.AddCreator("REAP")
'.AddSubject("Whatever subject you want to give it")
'Use the filename as the title... You can give it any title of course.
'.AddTitle(Path.GetFileNameWithoutExtension(outputPath))
'Add keywords, whatever keywords you want to attach to it
'.AddKeywords("Report, Merged PDF, " & Path.GetFileName(outputPath))
.Open()
End With
'Instantiate a PdfContentByte object
cb = writer.DirectContent
'Now loop thru the input pdfs
While f < pdfCount
'Declare a page counter variable
Dim i As Integer = 0
'Loop thru the current input pdf's pages starting at page 1
While i < pageCount
i += 1
'Get the input page size
pdfDoc.SetPageSize(reader.GetPageSizeWithRotation(i))
'Create a new page on the output document
pdfDoc.NewPage()
'If it is the 1st page, we add bookmarks to the page
If i = 1 Then
'First create a paragraph using the filename as the heading
Dim para As New iTextSharp.text.Paragraph(Path.GetFileName(fileName).ToUpper(), bookmarkFont)
'Dim para As New iTextSharp.text.Paragraph("Test", bookmarkFont)
'Then create a chapter from the above paragraph
Dim chpter As New iTextSharp.text.Chapter(para, f + 1)
'Finally add the chapter to the document
pdfDoc.Add(chpter)
End If
'Now we get the imported page
page = writer.GetImportedPage(reader, i)
'Read the imported page's rotation
rotation = reader.GetPageRotation(i)
'Then add the imported page to the PdfContentByte object as a template based on the page's rotation
If rotation = 90 Then
cb.AddTemplate(page, 0, -1.0F, 1.0F, 0, 0, reader.GetPageSizeWithRotation(i).Height)
ElseIf rotation = 270 Then
cb.AddTemplate(page, 0, 1.0F, -1.0F, 0, reader.GetPageSizeWithRotation(i).Width + 60, -30)
Else
cb.AddTemplate(page, 1.0F, 0, 0, 1.0F, 0, 0)
End If
End While
'Increment f and read the next input pdf file
f += 1
If f < pdfCount Then
fileName = "C:\REAP\TEMP\" & pdfFiles(f)
reader = New iTextSharp.text.pdf.PdfReader(fileName)
pageCount = reader.NumberOfPages
End If
End While
pdfDoc.Close()
result = True
End If
Catch ex As Exception
Throw New Exception(ex.Message)
End Try
Return result
End Function
Nothing in this message is intended to constitute an electronic signature unless a specific statement to the contrary is included in this message.
Confidentiality Note: This message is intended only for the person or entity to which it is addressed. It may contain confidential and/or privileged material. Any review, transmission, dissemination or other use, or taking of any action in reliance upon this message by persons or entities other than the intended recipient is prohibited and may be unlawful. If you received this message in error, please contact the sender and delete it from your computer.
------------------------------------------------------------------------------ Precog is a next-generation analytics platform capable of advanced analytics on semi-structured data. The platform includes APIs for building apps and a phenomenal toolset for data science. Developers can use our toolset for easy data analysis & visualization. Get a free account! http://www2.precog.com/precogplatform/slashdotnewsletter
_______________________________________________ iText-questions mailing list iText-questions@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/itext-questions
iText(R) is a registered trademark of 1T3XT BVBA. Many questions posted to this list can (and will) be answered with a reference to the iText book: http://www.itextpdf.com/book/ Please check the keywords list before you ask for examples: http://itextpdf.com/themes/keywords.php
