Ce script permet de créer un fichier pdf et de gérer son contenu.
<%
Dim Pdf, Doc, Page, Font, Params, str_texte, Filename
' Création de l'objet
Set Pdf = Server.CreateObject("Persits.Pdf")
' Création du fichier PDF
Set Doc = Pdf.CreateDocument
' Titre du fichier PDF
Doc.Title = "Titre du fichier PDF"
' Nom du créateur du fichier PDF
Doc.Creator = "John Smith"
' Nouvelle page
Set Page = Doc.Pages.Add
' Sélection de la police de caractères
Set Font = Doc.Fonts("Helvetica")
' Paramètres de la page
Params = "x=0; y=650; width=612; alignment=left; size=12; color=#000000"
' Texte de la page
str_texte = "Lorem ipsum dolor sit amet, consetetur sadipscing elitr, sed diam nonumy eirmod tempor invidunt ut labore et dolore magna aliquyam erat, sed diam voluptua. At vero eos et accusam et justo duo dolores et ea rebum. Stet clita kasd gubergren, no sea takimata sanctus est Lorem ipsum dolor sit amet."
' Ecriture du texte dans la page
Page.Canvas.DrawText str_texte, Params, Font
' Sauvegarde du fichier PDF
On error Resume Next
Filename = Doc.Save( "D:\clients\comptedetest\upload\test_asp_pdf.pdf", False )
If err Then
Response.Write("Erreur : " & Err.description)
Else
Response.Write ("La création du fichier PDF a réussie!")
End If
' Destruction de l'objet
Set Pdf = Nothing
%>
|
| Retour |
|
|
