' Set the page size of the new document
            qp.SetPageSize(PageSize)

            ' Set the Measurement Units to Inchs
            qp.SetMeasurementUnits(2)

            ' Create the table and specify the number of rows and columns
            Dim tableID As Integer
            tableID = qp.CreateTable(10, 3)

            ' Specify color and width of borders   
            qp.SetTableBorderColor(tableID, 0, 1, 1, 1)
            qp.SetTableBorderWidth(tableID, 0, 0.01)

            ' Specify table row height
            For row = 1 To 9 Step 2
                qp.SetTableRowHeight(tableID, row, row, 0.5)
                qp.SetTableRowHeight(tableID, row + 1, row + 1, 1.5)
            Next

            ' Specify table column width
            qp.SetTableColumnWidth(tableID, 1, 3, 3.9)
            qp.SetTableColumnWidth(tableID, 2, 2, 0.2)

            ' Specify Cell Padding
            qp.SetTableCellPadding(tableID, 1, 1, 5, 3, 0, 0.05)

            ' Insert the content for cells
            For col = 1 To 3 Step 2
                For row = 1 To 9 Step 2

'---> I would like to add a barcode 
                    qp.SetTableCellContent(tableID, row, col, "1234567890123")
'---
                    qp.SetTableCellContent(tableID, row + 1, col, _
                    "<p align=""center"">1234567890123</p>")

                Next
            Next

            ' Draw the table onto the document
            Dim s As Double
            s = qp.DrawTableRows(tableID, 0.25, 10.5, 10.5, 1, 0)

            ' Save the document to disk
            qp.SaveToFile(output)

            ' Check to see if the table could be created
            If s = False Then
                MsgBox("Could not create table!")
            End If

            Process.Start(output)