Toggle display of page numbers in Output window

'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