1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
'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