2

有没有人有通过经典 ASP 中的 asppdf 组件进行动态页码编号的经验,谢谢 似乎无法在对象参考或手册中找到它

4

1 回答 1

4

抱歉,这是一个非常简单的解决方案,我所要做的就是一个正常的计数循环并在 pdf 中绘制一个具有此值的画布......有时事情看起来比实际更难......

下面你会找到我的解决方案:

Set Pdf = Server.CreateObject("Persits.PDF")
    Set Doc = Pdf.CreateDocument
    Doc.ImportFromUrl "http://www.mydomain.com/assets/incs/path/script.asp"

    For Each Page in Doc.Pages
        str = "Page " & Page.Index & " of " & Doc.Pages.Count
        Page.Canvas.DrawText str, "x=10, y=20", Doc.Fonts("Courier")
    Next

    Doc.Save "c:\mypath\filename.pdf", False 
Set Pdf = Nothing
于 2012-12-13T10:02:31.273 回答