Remove page breaks

'To remove all page breaks from the Designated Output windows
'This script was sent to the SPSSX-L list by John Bauer (of SPSS) on Feb 5,1999

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