開いてページのサイズを変更してから保存しようとしているPDFがたくさんあります。また、そうすることでファイルサイズが大幅に縮小されることも期待しています。私は 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()
実際にファイルサイズを小さくするために何が欠けているか知っている人はいますか?
ありがとう。