'Here Is a very minimalistic script which will Set the footer To "Data: " 'followed by the Name of the current data file. It Is Not automatic: you 'will have To run it at some point prior To printing the Output document, And 'If different data files were Open before Or another file Is opened after you 'run the script, the footer will Not reflect that. But you can just Put a 'button On your toolbar For the script, And run it again. '------ save the following As "DataFooter.sbs" --------------- Sub Main Dim strFile As String On Error Resume Next With objSpssApp strFile = .Documents.GetDataDoc(0).GetDocumentPath .GetDesignatedOutputDoc.PrintOptions.FooterText = "Data: " & strFile End With End Sub