4.6k Aufrufe
Gefragt in Tabellenkalkulation von dutchi1972 Mitglied (419 Punkte)
Hallo zusammen,
ich würden geren in der Fußzeile auf einem Formular wenn ich diesen ausdrucken lase den User eintragen lasen damit man später auch sieht wer das Formular ausgedruckt hat. Ist soetwas möglich ???

Datum und Seitenanzahlen .. sind ja Standardbefehle.... mir fehlt lediglich der Username !!!

Danke im voraaus für eine Antwort.

Gruß Dutchi

3 Antworten

0 Punkte
Beantwortet von m-o Profi (22.7k Punkte)
Hallo Dutchi,

kopiere das folgende Makro in ein allgemeines Modul:

Option Explicit

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

Function fOSUserName() As String
Dim lngLen As Long, lngX As Long
Dim strUserName As String

strUserName = String$(254, 0)
lngLen = 255
lngX = apiGetUserName(strUserName, lngLen)
If lngX <> 0 Then
fOSUserName = Left$(strUserName, lngLen - 1)
Else
fOSUserName = ""
End If
End Function


Der nachfolgende Code gehört in das VBA-Projekt deiner Arbeitsmappe:

Private Sub Workbook_BeforePrint(Cancel As Boolean)

ActiveSheet.PageSetup.LeftFooter = "gedruckt von " & fOSUserName

End Sub


Gruß

M.O.
0 Punkte
Beantwortet von dutchi1972 Mitglied (419 Punkte)
Super Danke,
Wie immer hier im Forum, Problem Gelöst,
Danke nochmal
Gruß Dutchi
0 Punkte
Beantwortet von m-o Profi (22.7k Punkte)
Hallo Dutchi,

danke für die Rückmeldung.

Gruß

M.O.
...