|
This example shows how to import an HTML page into a multi-page
PDF document.
We first create a Doc object and inset
the edges a little so that the HTML will appear in the middle of
the page.
Set theDoc = Server.CreateObject("ABCpdf6.Doc")
theDoc.Rect.Inset 72, 144
We add the first page and indicate that we will be adding more
pages by telling the Doc object that this is page one. We save the
returned ID as this will be used to add subsequent pages.
theURL = "http://www.yahoo.com/"
theID = theDoc.AddImageUrl(theURL)
We now chain subsequent pages together. We stop when we reach a
page which wasn't truncated.
Do
theDoc.FrameRect
If Not theDoc.Chainable(theID) Then Exit Do
theDoc.Page = theDoc.AddPage()
theID = theDoc.AddImageToChain(theID)
Loop
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
theDoc.Flatten
Next
Finally we save.
theDoc.Save "c:\mypdfs\pagedhtml.pdf"
We get the following output.

pagedhtml.pdf [Page 1] |

pagedhtml.pdf [Page 2] |
|