Как Программно Установить Размер Колонок В Таблице?

[Rosna]

Подскажите пожалуйста, как можно программно установить размер колонок в создаваемой Лотус Скриптом таблице?

Во время генерации письма использую сейчас такой код:

....
Call rtItem.AppendTable(6, 2)
Call rtnav.FindFirstElement(RTELEM_TYPE_TABLECELL) 
Call rtItem.BeginInsert(rtnav)
Call rtItem.AppendText("1) Вопрос номер 1")
Call rtitem.AddNewLine( 1 )	
Call rtItem.EndInsert
....

Дальше идет вывод других полей подобным способом.
Мне нужно сделать так, чтобы в таблице первая колонка была 5 см, вторая 10см. Как этого можно добиться?

Пока таблица растягивается на весь экран и колонки у нее однакового размера.

Помогите пожалуйста!

 

[Rosna]

О! Стоило запостить вопрос, как сразу нашелся ответ!
Вот что значит коллективный разум!

Добавила такое, работает на ура:

....
Dim columnStyles(0 To 1) As NotesRichTextParagraphStyle
For i = 0 To 1
Set columnStyles(i) = session.CreateRichTextParagraphStyle
columnStyles(i).LeftMargin = 0
columnStyles(i).FirstLineLeftMargin = 0
columnStyles(i).Alignment = ALIGN_LEFT
Next	
columnStyles(0).RightMargin = 4.5 * RULER_ONE_CENTIMETER
columnStyles(1).RightMargin = 14.3 * RULER_ONE_CENTIMETER

Call rtItem.AppendTable(6, 2,,,columnStyles)
....