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

Тема в разделе "Lotus - Программирование", создана пользователем Rosna, 28 мар 2012.

  1. Rosna

    Rosna Well-Known Member

    Регистрация:
    12 ноя 2003
    Сообщения:
    48
    Симпатии:
    0
    Подскажите пожалуйста, как можно программно установить размер колонок в создаваемой Лотус Скриптом таблице?

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

    Код (Text):
    ....
    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см. Как этого можно добиться?

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

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

    Rosna Well-Known Member

    Регистрация:
    12 ноя 2003
    Сообщения:
    48
    Симпатии:
    0
    О! :) Стоило запостить вопрос, как сразу нашелся ответ! :)
    Вот что значит коллективный разум!

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

    Код (Text):
    ....
    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)
    ....
     
Загрузка...

Поделиться этой страницей