Question

我有一个程序在pdf的每个文件上标记页码。我遇到的问题有时候，如果文章已经存在印章应该去的地方，那么它就会写下来，使得两者都难以辨认。我们不想写或删除任何可能存在的文本，因此我正在尝试更改页面的大小，以便为每个图章添加少量空白以供每个图章使用。< / p>

doc.Read(fi.FullName)

            For i = 1 To doc.PageCount

                doc.PageNumber = i

                doc.SetInfo(doc.Page, "/MediaBox:Rect", doc.MediaBox.Left.ToString + " " + (doc.MediaBox.Top + 40).ToString + " " + (doc.MediaBox.Right + 0).ToString + " " + (doc.MediaBox.Bottom - 0).ToString)

                pgwidth = 0
                pgwidth = Convert.ToString(doc.CropBox.Width - 11)
                pgheight = Convert.ToString(doc.MediaBox.Height + 40)
                doc.Rect.String = doc.MediaBox.Left.ToString + " " + (doc.MediaBox.Top + 40).ToString + " " + (doc.MediaBox.Right + 0).ToString + " " + (doc.MediaBox.Bottom - 0).ToString
                'doc.SetInfo(doc.Page, "/MediaBox:Rect", doc.MediaBox.Left.ToString + " " + (doc.MediaBox.Top + 40).ToString + " " + (doc.MediaBox.Right + 0).ToString + " " + (doc.MediaBox.Bottom - 40).ToString)

                doc.Rect.String = "11 20 " + pgwidth + " 10"
                doc.Color.String = "0 0 0"
                'doc.FillRect()

                'doc.Rect.String = "11 20 580 10"

                doc.FontSize = 10
                doc.HPos = 0
                doc.AddText("CONFIDENTIAL")

                bates = Bates1.Text + "_" + x.ToString("D" + batesLen.ToString)

                doc.FontSize = 10
                doc.HPos = 1.0
                doc.AddText(bates)

                x = x + 1

            Next

我已成功改变页面大小，但空白区域始终显示在页面顶部。我需要页面底部的这个空间，所有移动或翻译页面内容的尝试都没有成功。

如何从本质上扩展pdf页面的底部？或者，有没有其他方法可以在页面底部放置页面标记，而无需书写可能已存在的文本？

Answer 1

也许您可以通过缩小版本来替换该页面。这将为您提供您所需的保证金，保持＆＃34;可打印的尺寸＆＃34;。

复制新AbCpDF文档中的所有页面，并对这些页面执行少量缩减，执行以下操作：

localStorage.setItem("setsgewonnen2.2", parseInt(gewonnen2.value) + 1);

更改pdf页面尺寸

1 个答案: