Create new output window

'Objective: This script will create a new output document and make it the active one

'Author: Tom Dierickx
'Date: November 21, 2000

Sub Main()
    
   Dim objOutputDoc As ISpssOutputDoc      	' Output Document object
    
   'Create a new Output Document and make it visible (By Default it becomes the "active" output window)
   Set objOutputDoc = objSpssApp.NewOutputDoc
   objOutputDoc.Visible = True
   objOutputDoc.WindowState = SpssMaximized
   Set objOutputDoc = Nothing
	
End Sub