Data footer

'Here Is a very minimalistic script which will Set the footer To "Data: "
'followed by the Name of the current data file.  It Is Not automatic:  you
'will have To run it at some point prior To printing the Output document, And
'If different data files were Open before Or another file Is opened after you
'run the script, the footer will Not reflect that.  But you can just Put a
'button On your toolbar For the script, And run it again.

'------ save the following As "DataFooter.sbs" ---------------

Sub Main
        Dim strFile As String
        On Error Resume Next

        With objSpssApp
                strFile = .Documents.GetDataDoc(0).GetDocumentPath
                .GetDesignatedOutputDoc.PrintOptions.FooterText = "Data: " & strFile
        End With
End Sub