1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
'save the following As "ToggleDisplayOfPageNumbers"
' Raynald Levesque rlevesque@videotron.ca 2003/01/24
' http://pages.infinit.net/rlevesqu/index.htm

Sub Main
    Dim strFooterNoPage As String
	Dim strFooterPage As String
    On Error Resume Next
	strFooterPage = "&[Date]       Page &[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