Объясните, как распечатать таблицу, строки которй не влезают на экран, так что их приходится прокручивать.
Ниже приведен пример макроса, который устанавливает размер поля типа "таблица" так, чтобы все строки были видны на экране, а затем устанавливает высоту страницы, чтобы поле "таблица" целиком помещалось на странице.
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