title image


Smiley Benutzername
Hi,



ich würde es so realisieren:









Private Sub Workbook_BeforePrint(Cancel As Boolean)

'Code kommt in DieseArbeitsmappe

ActiveSheet.PageSetup.RightFooter = "gedruckt von " & Environ("Username")

End Sub







Code eingefügt mit Syntaxhighlighter 4.0





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: