Добавить в нужных местах разрывы страниц перед печатью

 

Загрузить как .sbs Показать простым текстом

 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
'BEGIN DESCRIPTION
'Тема: вставка символа разрыва страницы перед таблицей, чей заголовок начинается с символов '/разрстрн'(скрипт работает вместе с синтаксисом).
'Ключевые слова: разрыв страницы output выдача форматирование синтаксис модуль TABLES.
'Опубликован: 22.05.2002, перевод: 15.08.2008.
'Автор: Raynald Levesque; перевод: А. Балабанов.
'Размещение: http://www.spsstools.ru/Scripts/OutputDoc/AddPageBreaksAtSelectedPlaces.txt (.sbs)
'Проверено: SPSS 13.0.
'END DESCRIPTION

'См. http://www.spsstools.net.
'Скрипт должен быть размещён в папке c:\\program files\\spss\\scripts\\.
'Скрипт вызывается из синтаксиса http://www.spsstools.ru/Scripts/OutputDoc/AddPageBreakSyntax.txt (.sps).

Sub Main
        PageBreak True
End Sub

Sub PageBreak(blnBreak As Boolean)
    Dim i As Long
    Dim objItem As ISpssItem
	Dim objPivotTable As PivotTable
	Dim intPos As Integer

    With objSpssApp.GetDesignatedOutputDoc.Items
        For i = 0 To .Count - 1
            Set objItem = .GetItem(i)

			intPos = InStr(LCase(objItem.Label),"/разрстрн")
			If intPos >0 Then	'Необходимо вставить разрыв страницы
				'Убираем текст '/разрстрн' из метки Output-навигатора
				objItem.Label = Left(objItem.Label,intPos - 1) & Mid(objItem.Label,intPos + 9)

				Select Case objItem.SPSSType
					Case SPSSPivot		'Убираем текст '/разрстрн' из заголовка таблицы
						Set objPivotTable = objItem.Activate()
						objPivotTable.TitleText =Mid(objPivotTable.TitleText,10)
					Case SPSSChart
						'Ничего не делаем (невозможно изменить заголовок графика через SaxBasic)
				End Select

				'Вставляем разрыв страницы
	            objItem.PageBreak = blnBreak
	            objItem.Deactivate
            End If
        Next
    End With
	Set objItem = Nothing
End Sub
Related pages

...

Navigate from here