This example shows how to import an HTML page which uses named
We first create a Doc object and
inset the edges a little so that the HTML will appear in the middle
of the page. We assign the appropriate HTML options so that links
will be rendered live.
Set theDoc = Server.CreateObject("ABCpdf12.Doc")
theDoc.Rect.Inset 18, 18
theDoc.HtmlOptions.AddLinks = True
We add the pages to the document.
theURL = "http://www.websupergoo.com/support.htm"
theID = theDoc.AddImageUrl(theURL)
If Not theDoc.Chainable(theID) Then Exit Do
theDoc.Page = theDoc.AddPage()
theID = theDoc.AddImageToChain(theID)
The URL we've referenced makes extensive use of named
destinations. We want these named destination links to take us
between pages on the PDF rather than taking us to the original
After adding the pages, we can flatten them. We can't do this
until after the pages have been added because flattening will
invalidate our previous ID and break the chain.
For i = 1 To theDoc.PageCount
theDoc.PageNumber = i
Finally, we save.
We get the following output. The links work - where possible -
within the PDF.
linkpages.pdf [Page 1]
linkpages.pdf [Page 2]