Aggiungere un commento ad un documento PDF con asp
nota bene: lo script nella versione "copia e incolla" che segue, presuppone permessi di scrittura lato server .. in paritcolare, è la root o cartella di destinazione del nuovo documento PDF che deve possedere i permessi di scrittura [chmod "666" - "777"] ..e l' utilizzo è di assoluta facilità: copia inclolla e salva come *.asp
CODICE:
<%
Set Pdf = Server.CreateObject("Persits.Pdf")
' Create empty document
Set Doc = Pdf.CreateDocument
' Add a new page
Set Page = Doc.Pages.Add
' Select one of the standard PDF fonts
Set Font = Doc.Fonts("Helvetica")
' Param string
Params = "x=0; y=650; width=612; alignment=center; size=50"
' Draw text on page
Page.Canvas.DrawText "Testo di prova!", Params, Font
' Add annotation
Set Annot = Page.Annots.Add("Questo è un semplice commento.", "x=10, y=700; width=200; height=50")
' Salvo documento in public
Filename = Doc.Save( Server.MapPath("/public/commento-asp-pdf.pdf"), False )
Response.Write "Fatto <A HREF=/public/" & Filename & ">scarica qui</A>"
%>
|