1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86
|
<%@language=vbscript%>
<!-- #include file="fpdf.asp" -->
<%
'----------------------------------------------------------------------
' Initialisatin de la base de données
'----------------------------------------------------------------------
dim Conn
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="& server.mappath("base/BASE.mdb")
'----------------------------------------------------------------------
' Variables et initialisation
'----------------------------------------------------------------------
Set pdf=CreateJsObject("FPDF")
set objInformations = server.createobject("ADODB.RECORDSET")
objInformations.open "Select * from CodesHV order by NomCode;",conn
pdf.CreatePDF()
pdf.SetPath("fpdf/")
pdf.Open()
pdf.AddPage()
'----------------------------------------------------------------------
' Entête du document
'----------------------------------------------------------------------
pdf.SetFont "Arial", "",16
pdf.SetTextColor 255,255,255
pdf.Cell 0,10, "Entête du document",0,1,"C",1
pdf.SetFont "Arial", "B",10
pdf.SetFillColor 192,192,192
pdf.SetTextColor 0,0,0
'----------------------------------------------------------------------
' Liste des champs de la requête
'----------------------------------------------------------------------
pdf.Cell 25,5, "No Code", 1,0,"C"
pdf.Cell 140,5, "Nom Code", 1,0,"C"
pdf.Cell 25,5, "Actif",1,1,"C"
pdf.SetFont "Arial", "",10
while not objInformations.EOF
' Liste des résultats
pdf.Cell 25,5, "" & objInformations("NoCodeHV"), 1,0,"C"
pdf.Cell 140,5,"" & objInformations("NomCode"), 1,0,"L"
if objInformations("Actif") = true then
ValeurActif = "Oui"
else
ValeurActif = "Non"
end if
pdf.Cell 25,5,"" & ValeurActif, 1,1,"C"
objInformations.movenext
wend
'----------------------------------------------------------------------
' Affichage de l'espace pour inscrire des remarques
'----------------------------------------------------------------------
pdf.Cell 0,5, " ",0,1
pdf.Cell 0,5, "Remarques" ,"TLR",1,"C"
pdf.Cell 0,5, "" ,"LR",1,"C"
pdf.Cell 0,5, "" ,"LR",1,"C"
pdf.Cell 0,5, "" ,"LR",1,"C"
pdf.Cell 0,5, "" ,"LR",1,"C"
pdf.Cell 0,5, "" ,"LR",1,"C"
pdf.Cell 0,5, "" ,"BLR",1,"C"
pdf.Close()
'----------------------------------------------------------------------
' Permet d'enregistrer automatiquement le fichier dans le c:\
'----------------------------------------------------------------------
'pdf.Output "c:\patante.pdf"
'----------------------------------------------------------------------
' Permet d'afficher une boîte de "Save As" Pour enregistrer le document PDF créé
'----------------------------------------------------------------------
'pdf.Output "",true
'----------------------------------------------------------------------
' Permet d'afficher le pdf tout simplement à l'écran
'----------------------------------------------------------------------
pdf.Output()
%> |