AspPDF (Persits) é um componente que dinamicamente cria, lê e modifica arquivos para o formato PDF.
Ideal para criação de relatórios, arquivos protegidos por senha e material que não deve ser modificado.
Código para criar um arquivo PDF com um “Hello World”.
<%
' Cria uma instância do controle
Set aspPdf = Server.CreateObject("Persits.Pdf")
' Cria um documento em branco
Set Doc = aspPdf.CreateDocument
' Opção do Documento
Doc.Title = "Criando um Hello World com AspPdf"
Doc.Creator = "Nome do Criador"
' Adiciona uma nova página
Set Page = Doc.Pages.Add
' Seleciona a fonte a ser utilizada
Set Font = Doc.Fonts("Helvetica")
' Parâmetros
s_Params = "x=0; y=650; width=612; alignment=center; size=50"
' Escreve o texto na Página
Page.Canvas.DrawText "Hello World!", s_Params, Font
' Salva o documento.
ArquivoPDF = Doc.Save( Server.MapPath("hello.pdf"), False )
' Tira os objetos da memória
Set Font = Nothing
Set Page = Nothing
Set Doc = Nothing
Set aspPdf = Nothing
Response.Write "Arquivo criado com sucesso : " & ArquivoPDF
%>
