Discussion :

[PrinceMaster77]

Je voudrais créer un ficher pdf avec un code barre en128, j'ai trouver un code sur le net qui me permattrait de créer ce code barre mais uniquement avec l'utilisation de fpdf, mon soucis est que je ne connais pas du tout le fonctionnement de ce logiciel et le site est totalement en espagnol ou italien.

Voici ma fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
 
<script RUNAT=SERVER LANGUAGE="VBscript">
' code=text à coder
' x,y=coordonées en mm ou positioner le coin suppérieur gauche du codebar
' h=hauteur du codebar en mm
 
Function mkcode(code,x,y,h)
   code = "Nicolas"
   x = 7
   y = 24
   h = 24
   ' A utiliser en combinaison avec la librairie FPDF sur http://www.aspxnet.it/public/
   C128 = Array("11011001100","11001101100","11001100110","10010011000","10010001100","10001001100","10011001000","10011000100","10001100100","11001001000","11001000100","11000100100","10110011100","10011011100","10011001110","10111001100","10011101100","10011100110","11001110010","11001011100","11001001110","11011100100","11001110100","11101101110","11101001100","11100101100","11100100110","11101100100","11100110100","11100110010","11011011000","11011000110","11000110110","10100011000","10001011000","10001000110","10110001000","10001101000","10001100010","11010001000","11000101000","11000100010","10110111000","10110001110","10001101110","10111011000","10111000110","10001110110","11101110110","11010001110","11000101110","11011101000","11011100010","11011101110","11101011000","11101000110","11100010110","11101101000","11101100010","11100011010","11101111010","11001000010","11110001010","10100110000","10100001100","10010110000","10010000110","10000101100","10000100110","10110010000","10110000100","10011010000","10011000010","10000110100","10000110010","11000010010","11001010000","11110111010","11000010100","10001111010","10100111100","10010111100","10010011110","10111100100","10011110100","10011110010","11110100100","11110010100","11110010010","11011011110","11011110110","11110110110","10101111000","10100011110","10001011110","10111101000","10111100010","11110101000","11110100010","10111011110","10111101110","11101011110","11110101110","10111011110","10111101110","11101011110","11010000100","11010010000","11010011100","1100011101011")
   result=C128(107)
   checksum=104
   jj=1
   largeur=0.3 'Défini la largeur des bares de bare (en mm)
   pdf.SetLineWidth(largeur*1.01) ' Définit l'épaisseur du trait (doit être légèrement suppérieur à la largeur, car des espaces involontaire apparaissent sur certaines imprimantes
   for ii=1 to len(code)
     tmp=asc(mid(code,ii,1))-32
     result=result & C128(tmp)
     checksum=checksum+jj*tmp
     jj=jj+1
   next
   checksum=checksum MOD 103
   result=result & C128(checksum) & C128(109)
   for ii=1 to len(result)
      if mid(result,ii,1)="1" Then
       'pdf.line x+ii*largeur,y,x+ii*largeur,y+12
       pdf.line x+ii*0.25,y,x+ii*0.25,y+h
      End If
   next
End Function
</script>

mon soucis est que je ne vois pas comment utiliser cette fonction dans ces lignes de codes (qui me servent a créer mon fichier pdf) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
<%
 Set pdf=CreateJsObject("FPDF") 
 pdf.CreatePDF()
 pdf.SetPath("fpdf/")
 pdf.SetFont "Times","",12
 pdf.Open()
 pdf.AddPage()
 pdf.SetLineWidth(0.4)
 pdf.Text mkcode("Nicolas","7","24","24")
 pdf.Text 7,24,"Code barre : "
 pdf.output "c:\Test\Test.pdf",true,true
%>

[Immobilis]

Salut,

Ton code tel qu'il est ne marche pas?

A+