Ce script permet de créer un fichier pdf et de gérer son contenu.
<%
Dim Pdf as Object
Dim Doc as Object
Dim Page as Object
Dim Font as Object
Dim Params as Object
Dim str_texte as Object
Dim Filename as Object
' Création de l'objet
Pdf = Server.CreateObject("Persits.Pdf")
' Création du fichier PDF
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
Page = Doc.Pages.Add
' Sélection de la police de caractères
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\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
Pdf = Nothing
%>
|
| Retour |
|
|
