|
|
- Set theDoc = Server.CreateObject("ABCpdf11.Doc")
- theDoc.Rect.Inset 10, 10 'left top
- theDoc.Page = theDoc.AddPage()
- theURL = url '要生成的PDF源内容的网址
- theID = theDoc.AddImageUrl(theURL, True, 0, True)
- Do
- theDoc.FrameRect ' add a black border
- If Not theDoc.Chainable(theID) Then Exit Do
- theDoc.Page = theDoc.AddPage()
- theID = theDoc.AddImageToChain(theID)
- Loop
-
- For i = 1 To theDoc.PageCount
- theDoc.PageNumber = i
- theDoc.Flatten
- Next
- 'Call DelayTime(2)
- theDoc.Save server.MapPath(strFileName) ' 保存文件的路径
- theDoc.clear()
亲测有效 |
|
IP卡
狗仔卡
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
显身卡