Gerar PDF com Persits.Pdf

[xanburzum 169]

<%   

' Início - Mostrar Gerador : Gerar PDF '

Dim Pdf, Doc, Page

Set Pdf = Server.CreateObject("Persits.Pdf")

Set Doc = Pdf.CreateDocument

 

Search = Request.QueryString("Search")

Local = Request.QueryString("Local")

 

Doc.ImportFromUrl ("http://www.seusite.com.br/GeraPDF.asp?Search=" & Search & "&Local=" & Local & "")

 

Doc.Encrypt "7658tedk4784584754747584484584854484545", "", 40, PdfFull And (Not PDFModify) And (Not PDFCopy)

 

' For Each Page In Doc.Pages

' Page.Canvas.DrawText "Pág. "&Page.Index&"/"&Doc.Pages.Count&"", "x=15, y=20", Doc.Fonts("Arial")

' Next

 

Doc.SaveHttp("attachment; filename=Arquivo.pdf"),True

 

Set Pdf = Nothing

Set Doc = Nothing

Set Page = Nothing

 

%>

[Patrique 0]

O código abaixo importa uma URL de um website e gera a partir desse URL um documento PDF com a tela capturada do website.

 

<%
' Cria uma instância do controle
Set aspPdf = Server.CreateObject("Persits.Pdf")
' Cria um documento em branco
Set Doc = aspPdf.CreateDocument
' Importa a URL da Internet
Doc.ImportFromUrl "http://www.google.com.br/"
' Salva o documento.
ArquivoPDF = Doc.Save( Server.MapPath("importa_url.pdf"), False )
' Tira os objetos da memória
Set Doc = Nothing
Set aspPdf = Nothing

Response.Write "Arquivo criado com sucesso : " & ArquivoPDF
%>

Fonte: Codigo Fonte

[xanburzum 169]

legal também...