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

Rosna

Well-known member
12.11.2003
47
0
#1
Подскажите пожалуйста, как можно программно установить размер колонок в создаваемой Лотус Скриптом таблице?

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

Код:
....
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

Well-known member
12.11.2003
47
0
#2
О! :) Стоило запостить вопрос, как сразу нашелся ответ! :)
Вот что значит коллективный разум!

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

Код:
....
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)
....