Проблема добавления таблицы с большим количеством колонок

[zulu_1]

Доброго времени суток!

Возникла проблема: при попытке создать через AppendTable в ричтекстовом поле табличку с более чем 20 колонками получаю ошибку "Illegal column width - check Left and Right margins". Если в этом же поле табличку создать вручную, то без проблем создается максимально возможная (255 строк на 64 колонки). Как обойти этот прикол? Больно нужна табличка с большим количеством колонок!

 

[allex]

Максимум что попытался выжить

Sub Click(Source As Button)
Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
REM Create document with Body rich text item
Dim doc As New NotesDocument(db)
Call doc.ReplaceItemValue("Form", "test")
Call doc.ReplaceItemValue("Subject", "Table ")
Dim body As New NotesRichTextItem(doc, "table")

Dim rows As Integer, columns As Integer
rows = 2
columns = 30
Dim tabs() As String
If Messagebox("Do you want a tabbed table?", _
MB_YESNO + MB_ICONQUESTION, "Tabbed?") = IDNO Then
Else
Redim tabs(1 To rows)	
'For i=1 To 3
Call body.AppendTable(rows, columns, )
'Next
End If
REM Save document and refresh view
Call doc.Save(True, False)
Dim ws As New NotesUIWorkspace
Call ws.ViewRefresh
End Sub

Только объясни на что такая таблица, ты что собрался уписать в более 20 колонках
И не проще ли сделать на tabs