Заметки сисадмина » Объясните, как распечатать таблицу, строки которй не влезают на экран, так что их приходится прокручивать.

Заметки сисадмина о интересных вещах из мира IT, инструкции и рецензии. Настраиваем Компьютеры/Сервера/1С/SIP-телефонию в Москве

Объясните, как распечатать таблицу, строки которй не влезают на экран, так что их приходится прокручивать.

2007-04-30 · Posted in Документооборот

Ниже приведен пример макроса, который устанавливает размер поля типа "таблица" так, чтобы все строки были видны на экране, а затем устанавливает высоту страницы, чтобы поле "таблица" целиком помещалось на странице.
Function ButtonClicked()
' подсчет количества ненулевых строк j
j=1
' подсчет ведется по первому столбцу каждой строки
' и прекращается при достижении первого пустого поля
' ( если у вас могут перемежаться пустые и непустые поля,
' вам нужно модифицировать этот алгоритм )
' table – имя поля "таблица"
WHILE table.GetCell(j,1)<>"" AND j<1024
j=j+1
END WHILE
' установка высоты таблицы
table.h = 50 + table.GetCharHeight() * j
' установка высоты страницы
SetPageHeight( GetCurrentPage(), table.h + table.y + 20 )
end function

Leave a Reply