Creare 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")
' creo documento vuoto
Set Doc = Pdf.CreateDocument
' Imposto le prorietà del documento
Doc.Title = "titolo del creando documento PDF "
Doc.Creator = "CONTENUTO DEL NUOVO DOC PDF "
' Aggiungo nuova pagina su cui scrivere
Set Page = Doc.Pages.Add
' Imposto il font da utilizzare
'Set Font = Doc.Fonts("Helvetica")
Set Font = Doc.Fonts("Courier")
' Posizionamento
Params = "x=0; y=650; width=612; alignment=center; size=50"
' Scrivo il testo
Page.Canvas.DrawText "Prova di base", Params, Font
percorso = Server.MapPath("/public") & "/base.pdf"
'Filename = Doc.Save( "D:\INETPUB\webs\nomedominiocom\public\base.pdf", False )
Filename = Doc.Save( percorso, False )
Response.Write "Scarica o apri il tuo pdf <A HREF=/public/" & Filename & ">qui</A>"
%> |