Sub Main
'To export all visible items of the Designated Output Viewer to XML:
Call objSpssApp.GetDesignatedOutputDoc.ExportDocument(SpssVisible, _
	"c:\\temp\\spssoutput.xml", SpssFormatXml, False)

End Sub