Returns or sets the width of the borders between table cells.
Syntax
[form!]VSPrinter.TablePen[ = value As Variant ]
Remarks
Normally, table borders are drawn using the current pen, whose width is determined by the PenWidth property. The TablePen, TablePenLR, and TablePenTB properties allow you to specify different pen widths to be used when drawing table borders. If any of these properties is set to zero, the default pen width is used instead.
TablePen determines the thickness of the lines drawn inside the table. TablePenLR determines the thickness of the lines drawn to the left and to the right of the table. TablePenTB determines the thickness of the lines drawn on the top and on the bottom of the table. The position of the borders is specified with the TableBorder property.
You may specify units with these values (inches, points, twips, cm, mm, or pixels). The default unit is twips. For details on using unit-aware measurements, see the Using Unit-Aware Properties topic.
The following example shows how these properties are used:
Dim s$
With vp
.TableBorder = tbAll
.TablePen = 1 ' thin lines inside the table
.TablePenTB = 80 ' thick line above and below the table
.TablePenLR = 30 ' medium lines on the left and right of the table
.StartDoc
s = "This is a table|This is a table|This is a table;"
.Table = "1440|1440|1440;" & s & s & s
.EndDoc
End With
Here is the table created by the above code:
 |
Note: You can create borders with custom thickness and colors around specific rows and columns using the TableCell property (see the tcRowBorder* and tcColBorder* settings). |
Data Type
Variant
Default Value
0