Выделение итога в таблице SUMMARIZE или вставка разрыва страницы

 

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

 

Используйте следующий синтаксис для проверки работы этого автоскритпа: Bold Total In SUMMARIZE table Or Insert Page Break (initiating syntax).

 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
Sub Summarize_Table_Report_Create(objTable As Object, objOutputDoc As Object, lngIndex As Long)
'Автоскрипт
'Инициирующее событие (Trigger Event): создание таблицы после выполнения процедуры Summarize.

'Действие: просматривает метки строк в таблице и находит строку "Total" (итого) и форматирует надпись "Total" и
'соответствующую ей строку данных жирным шрифтом, если заголовок таблицы начинается с "/bold/";
' если заголовок начинается с /break/, тогда скрипт вставляет разрыв страницы прямо перед таблицей Summarize;
' если хотите использовать вместе и /break/, и /bold/, следует писать заголовок как "/break//bold/"

'Автор: Raynald Levesque, 3.2.2004.

	Dim bolSelection As Boolean
	Dim i As Integer
	Dim objitem As ISpssItem

	Set objitem = objOutputDoc.Items.GetItem(lngIndex)

	With objitem
		If (Left(.Label,7) = "/break/") Then
			objitem.PageBreak =True
			.Label = Mid(.Label, 8)
			objTable.TitleText = Mid(objTable.TitleText, 8)
		End If
		If (Left(.Label,6) = "/bold/") Then
			Call SelectRowLabelsAndData(objTable, "Total", bolSelection)
			If bolSelection = True Then
					objTable.TextStyle = SpssTSBold
			End If
			.Label = Mid(.Label, 7)
			objTable.TitleText = Mid(objTable.TitleText, 7)
		End If
		.Activate
		.Deactivate
	End With
	Set objitem = Nothing
End Sub

'Пример вызова таблицы Summarize из синтаксиса - А.Б.:
'SUMMARIZE
'  /TABLES=educ
'  /FORMAT=VALIDLIST NOCASENUM TOTAL LIMIT=100
'  /TITLE='/break//bold/Case Summaries'
'  /MISSING=VARIABLE
'  /CELLS=COUNT .
Related pages

...

Navigate from here