Sub ShowTable()
        Dim doc As Document = New Document
        Dim strFilename As String
        Dim Writer As PdfWriter = Nothing
 
        strFilename = "C:\Dokumente und Einstellungen\Puk\Eigene" & _
          "Dateien\VSProjecte08\PDFTest\PdfTestDoc.pdf"
 
        Writer = PdfWriter.getInstance(doc, New FileStream(strFilename, _
                  FileMode.Create))
        doc.Open()
 
        Dim table As Table = New Table(3)
        table.BorderWidth = 1
        table.BorderColor = New Color(0, 0, 255)
        table.Padding = 3
        table.Spacing = 1
 
        Dim cell As Cell = New Cell("header")
        cell.Header = True
        cell.Colspan = 3
        cell.BackgroundColor = New Color(0, 0, 140)
        table.addCell(cell)
 
        cell = New Cell("example cell with colspan 1 and rowspan 2")
        cell.Rowspan = 2
        cell.BorderColor = New Color(255, 0, 0)
        table.addCell(cell)
        table.addCell("1.1")
        table.addCell("2.1")
        table.addCell("1.2")
        table.addCell("2.2")
        table.addCell("cell test1")
 
        cell = New Cell("big cell")
        cell.Rowspan = 2
        cell.Colspan = 2
        cell.HorizontalAlignment = Element.ALIGN_CENTER
        cell.VerticalAlignment = Element.ALIGN_MIDDLE
        cell.BackgroundColor = New Color(192, 192, 192)
        table.addCell(cell)
        table.addCell("cell test2")
 
        ' Dim img As Image = Image.getInstance(strFilename)
        Dim img As Image = Image.getInstance(Server.MapPath("111006.jpg"))
        img.Alignment = Image.MIDDLE
 
        cell = New Cell(img)
        cell.Rowspan = 2
        table.addCell(cell)
 
        doc.Add(table)
        doc.Close()
 
 
        'OpenPDFTest(strFilename)
    End Sub