'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