'BEGIN DESCRIPTION
'Минималистский скрипт, который устанавливает нижний колонтитул для печати
'файла результатов (Output), наполняя его строчкой вида
'"Данные: " и затем - путь и имя текущего файла данных.
'Скрипт срабатывает не автоматически: вам потребуется запускать его перед печатью.
'Надо помнить, что, если вы открывали какой-то другой файл данных перед запуском
'скрипта, или открыли другой файл данных после запуска скрипта, содержимое
'нижнего колонтитула этого уже не отразит: туда прописывается имя ТЕКУЩЕГО файла данных.
'Будет проще "привязать" скрипт к самодельной кнопке на панели инструментов, так
'его будет очень легко запускать в нужный момент перед печатью.
'END DESCRIPTION

'Перевод: А. Балабанов, 19.11.2008.
'Проверено: SPSS 15.0.0.

'------ сохраните следующее с именем "DataFooter.sbs" ---------------

Sub Main
        Dim strFile As String
        On Error Resume Next

        With objSpssApp
                strFile = .Documents.GetDataDoc(0).GetDocumentPath
                .GetDesignatedOutputDoc.PrintOptions.FooterText = "Данные: " & strFile
        End With
End Sub