Печать пути к файлу данных в нижнем колонтитуле файла выдачи

'BEGIN DESCRIPTION
' Печать пути к файлу данных в нижнем колонтитуле файла выдачи (output)
'END DESCRIPTION
'Вопрос:
'Есть ли возможность включить путь и имя файла данных в нижний колонтитул файла выдачи при его распечатке?

'Ответ:
'Да. Если вы используете версию SPSS 7.5 или более позднюю, сохраните данный файл как скрипт SPSS (с расширением .sbs).
'Запустите данный скрипт, например, с помощью меню Utilities > Run Script.
'Скрипт укажет в настройках печати в качестве содержимого нижнего колонтитула текущего файла выдачи
'следующую строку:  "Файл данных: " (имя и путь к текущему файлу данных).

'Использовать скрипт будет удобней, если вы включите его в меню SPSS с помощью Menu Editor,
'либо создадите для него кнопку на панели инструментов.
'Код решения:  100007666

'Тема: Печать пути к файлу данных в нижнем колонтитуле файла выдачи (output)
'Ключевые слова: печать, выдача, output, файл данных, путь, колонтитул.
'Опубликован: ?, перевод: 23.06.2008.
'Автор: ? (корп. SPSS); перевод: А. Балабанов.
'Размещение: http://www.spsstools.ru/Scripts/Printing/PrintDataFilenameAsPartOfFooter.txt (.sbs)
'Проверено: 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