'Begin Description 'Удаление всех разрывов страницы из текущего окна результатов. 'Скрипт прислан в SPSSX-L 5 февраля 1999 г. Автор: John Bauer (SPSS). 'End Description 'Перевод: А. Балабанов, 19.11.2008. 'Проверено: SPSS 15.0.0. Sub Main PageBreak False End Sub Sub PageBreak(blnBreak As Boolean) Dim i As Long Dim objItem As ISpssItem With objSpssApp.GetDesignatedOutputDoc.Items For i = 0 To .Count - 1 Set objItem = .GetItem(i) objItem.PageBreak = blnBreak Next End With End Sub