'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