J'ai un tas de PDF que j'essaie juste d'ouvrir, de redimensionner la page, puis de sauvegarder. J'espère également que la taille des fichiers diminuera de manière significative. J'utilise iTextSharp et le redimensionnement fonctionne très bien, mais la taille du fichier est presque identique, en fait un peu plus grande en fait. Voici la fonction que j'ai maintenant:Comment redimensionner un pdf en utilisant iTextSharp
Dim reader As New PdfReader(inPDF)
Dim doc As New Document(PageSize.LETTER)
Document.Compress = True
Dim writer As PdfWriter = PdfWriter.GetInstance(doc, New FileStream(outPDF, FileMode.Create))
doc.Open()
Dim cb As PdfContentByte = writer.DirectContent
Dim page As PdfImportedPage
For pageNumber As Long = 1 To reader.NumberOfPages
page = writer.GetImportedPage(reader, pageNumber)
cb.AddTemplate(page, PageSize.LETTER.Width/reader.GetPageSize(pageNumber).Width, 0, 0, PageSize.LETTER.Height/reader.GetPageSize(pageNumber).Height, 0, 0)
doc.NewPage()
Next pageNumber
doc.Close()
Est-ce que quelqu'un sait ce que je peux être absent pour obtenir effectivement la taille du fichier ainsi?
Merci.
Je vais extrapoler d'ici et dire ça Pour atteindre mon objectif, j'ai besoin d'extraire les images, puis de les manipuler et de les rassembler dans un nouveau PDF. d résoudre ce problème ici: http://stackoverflow.com/questions/802269/itextsharp-extract-images – Ryan
Oui. Vous devez faire attention à ne pas perturber le formatage. –