«Тумблер» отображения номеров страниц при печати файла выдачи (.spo)

'BEGIN DESCRIPTION
'Тема: Включение/выключение нумерации страниц для печати файла выдачи (output).
'Ключевые слова: печать, колонтитул, нумерация, страница, выключение, выдача.
'Опубликован: 24.01.2003, перевод: 24.06.2008.
'Автор: Raynald Levesque, rlevesque@videotron.ca; перевод коммент.: А. Балабанов.
'Размещение: http://www.spsstools.ru/Scripts/Printing/ToggleDisplayOfPageNumber.txt (.sbs)
'Проверено: SPSS 15.0.0.
'END DESCRIPTION

'Примеч.: сохраните содержимое с именем "ToggleDisplayOfPageNumbers.sbs"
'http://www.spsstools.net.

Sub Main
    Dim strFooterNoPage As String
	Dim strFooterPage As String
    On Error Resume Next
	strFooterPage = "&[Date]       Стр. &[Page]"
	strFooterNoPage = "&[Date]"
	With objSpssApp
    	If InStr(.GetDesignatedOutputDoc.PrintOptions.FooterText,"&[Page]") Then
    	.GetDesignatedOutputDoc.PrintOptions.FooterText = strFooterNoPage
        Else
		.GetDesignatedOutputDoc.PrintOptions.FooterText = strFooterPage
        End If
    End With
End Sub