i have these nice sub for insert a table:
Code:
Public Sub InsertTable(ByVal Rows As Integer, ByVal Columns As Integer, Optional ByVal ColWidth As Integer = 700, Optional ByVal RowHeight As Integer = 2000) Dim _Rtf As String
_Rtf = "\par"
' I Fixed the column size here you can change it on your own
For row As Integer = 1 To Rows
_Rtf &= "\trowd\trautofit1\trgaph108\trrh" & (RowHeight * row).ToString & "\trleft36" 'these last comand is the left row position
'The following For loop is just an example you make a list of columnWidth and and you can assign it here
For col As Integer = 1 To Columns
_Rtf &= "\clbrdrt\brdrdb\brdrsh\brdrs\clbrdrr\brdrdb\cellx" & (ColWidth * col).ToString
Next
_Rtf &= "\pard"
_Rtf &= "\intbl\row"
Next
_Rtf &= "\pard"
Dim tmpstr As String = Me.Rtf
Me.Rtf = tmpstr.Insert(tmpstr.LastIndexOf("\par" & tmpstr.Chars(tmpstr.Length - 2)), _Rtf)
End Sub
i have read that the "\trrhN" RTF command is for change the row height and the 'N' is the size. if so why don't change the row height?