如何使用iTextSharp调整pdf的大小

Question

我有一堆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()

有谁知道我可能缺少什么实际上也减少了文件大小？

谢谢.