Удаление символов разрыва страницы

'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