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 |
Partager