'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