4
我有一堆PDF,我只是试图打开,调整页面大小,然后保存。我也希望文件大小会显着缩小。我正在使用iTextSharp并且调整大小工作得很好,但文件大小几乎相同,实际上稍大一些。这里是我现在的功能:如何使用iTextSharp调整pdf的大小
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()
有没有人知道我可能会错过实际获得文件大小?
谢谢。
我要从这里推断并说实现我的目标,然后,我需要提取图像,然后操纵它,并将它们放回到一个新的PDF中。幸运的是,你可以帮助d地址在这里的问题:http://stackoverflow.com/questions/802269/itextsharp-extract-images – Ryan 2009-07-09 14:50:34