 |
<%
' Cria uma instância do controle
Set AbcPdf = Server.CreateObject("ABCpdf6.Doc")
' Cria um retângulo com a área ocupada pelo objeto.
' Left / Bottom / Width / Height
AbcPdf.Rect.SetRect "40", "72", "520", "640"
' URL a ser adicionada no arquivo PDF
theURL = "http://www.google.com/"
theID = AbcPdf.AddImageUrl(theURL, True, 0, False)
For i = 1 To 3
If AbcPdf.GetInfo(theID, "Truncated") <> "1" Then Exit For
AbcPdf.Page = AbcPdf.AddPage()
theID = AbcPdf.AddImageToChain(theID)
Next
AbcPdf.PageNumber = 1
' Salva o arquivo PDF
AbcPdf.Save Server.MapPath("importa_url.pdf")
' Tira os objetos da memória
Set AbcPdf = Nothing
Response.Write "Arquivo criado com sucesso."
%>
|