'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