Bonjour,

Je suis actuellement en train de travailler avec iText en VB.NET pour créer des PDF je ne comprend pas certaine choses :

1 - Je voudrai mettre du texte dans les cellules mais des fois sur deux lignes, voir avec une police ou format différent suivant la ligne comment je pourrai faire ça car il en prend pas en compte par exemple les "\n"comme en C


2 - Je cherche comment je pourrai définir la taille des cellules en largeur et hauteur, j'ai essayé avec width par exemple en utilisant un get/set mais je crache au moment de set la valeur. Je ne comprends donc pas comment set une valeur pour définir la taille

3 - je voudrai aussi modifier le format du PDF, définir la hauteur et la largeur de la feuille PDF en elle même.

Voici ci-dessous mon code :

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
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
 
Dim Cell As PdfPCell
 
  Public Property SetColspan() As Integer
      Get
          Return Cell.Colspan
      End Get
      Set(ByVal value As Integer)
          Cell.Colspan = value
      End Set
  End Property
 
  Public Property SetWidth() As Single
      Get
          Return Cell.Width
      End Get
      Set(ByVal value As Single)
          Cell.Width = value
      End Set
  End Property
 
  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
      Dim pdfDoc As New Document
      Dim pdfWrite As PdfWriter = PdfWriter.GetInstance(pdfDoc, New FileStream("C:\Users\stempi\Desktop\Test.pdf", FileMode.Create))
 
      pdfDoc.Open()
 
      Dim EAN128 As New Barcode128
 
      EAN128.CodeType = Barcode128.CODE128
      EAN128.Code = "(00)030328417153500179"
      EAN128.GenerateChecksum = True
 
      'pdfDoc.Add(EAN128.CreateImageWithBarcode(pdfWrite.DirectContent, Nothing, Nothing))
 
      Dim img As Image = EAN128.CreateImageWithBarcode(pdfWrite.DirectContent, Nothing, Nothing)
 
      Dim myTable As New PdfPTable(2)
 
      'première ligne
      Cell = New PdfPCell(New Phrase("Cellule 1"))
      SetWidth = 4.5
      SetColspan = 2
      myTable.AddCell(Cell)
 
      'Deuxième ligne
      Cell = New PdfPCell(New Phrase("Cellule 2"))
      SetColspan = 2
      myTable.AddCell(Cell)
 
      'Troisième ligne
      Cell = New PdfPCell(New Phrase("Cellule 3"))
      SetColspan = 2
      myTable.AddCell(Cell)
 
      'Quatrième ligne
      myTable.AddCell("Cellule 4.1")
      myTable.AddCell("Cellule 4.2")
 
      'Cinquième ligne
      Cell = New PdfPCell(New Phrase("Cellule 5"))
      SetColspan = 2
      myTable.AddCell(Cell)
 
      'Sixième ligne
      Cell = New PdfPCell(New Phrase("Cellule 6"))
      SetColspan = 2
      myTable.AddCell(Cell)
 
      'septième ligne
      Cell = New PdfPCell(img)
      SetColspan = 2
      myTable.AddCell(Cell)
 
      pdfDoc.Add(myTable)
 
      'pdfDoc.Add(Barcode.CreateImageWithBarcode(pdfWrite.DirectContent, Nothing, Nothing))
 
      'pdfDoc.Add(New Paragraph("Test Page 1"))
      'pdfDoc.NewPage()
      'pdfDoc.Add(New Paragraph("Test Page 2"))
      pdfDoc.Close()
 
  End Sub
ainsi que les imports :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
 
Imports iTextSharp.text
Imports iTextSharp.text.pdf
Imports System.IO
voilà si quelqu'un pourrai m'éguiller la dessus ça serait super sympa car je bloque vraiment là merci