|
This example shows how to import an HTML page which uses named
destinations.
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("ABCpdf13.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)
Do
If Not theDoc.Chainable(theID) Then Exit Do
theDoc.Page = theDoc.AddPage()
theID = theDoc.AddImageToChain(theID)
Loop
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
URL.
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.
theDoc.HtmlOptions.LinkPages
For i = 1 To theDoc.PageCount
theDoc.PageNumber = i
theDoc.Flatten
Next
Finally, we save.
theDoc.Save "c:\mypdfs\linkpages.pdf"
We get the following output. The links work - where possible -
within the PDF.

linkpages.pdf [Page 1] |

linkpages.pdf [Page 2] |
|