Gruppe
Druck
Problem
Wie kann ich den Anwendernamen in die Fußzeile eintragen lassen?
StandardModule: basMain
Sub Verfasser()
With Worksheets("Tabelle1")
.PageSetup.LeftFooter = Application.UserName
.PrintPreview
End With
End Sub