last saved by on footer

  • Thread starter Thread starter Ismael
  • Start date Start date
I

Ismael

How do I put whoever saved last on the footer or better
yet whomever is using the file and prints it.
 
Hi Ismael,

Do you mean the network user's name or the Excel user name. If the latter,
then put this code in the ThisWorkbook code module

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.LeftFooter = Application.UserName
End Sub


If it's the former, it's a bit more complicated, but not too much


Private Declare Function GetUserName Lib "advapi32.dll" _
Alias "GetUserNameA" _
(ByVal lpBuffer As String, _
nSize As Long) As Long

Public Function UserName() As String
Dim sName As String * 256
Dim cChars As Long
cChars = 256
If GetUserName(sName, cChars) Then
UserName = Left$(sName, cChars - 1)
End If
End Function

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.LeftFooter = UserName
End Sub


--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
 
Back
Top