Új hozzászólás Aktív témák

• #49524 Delila_1 veterán föccer #49523

  Új Válasz 2022-09-03 12:09:00 #49524

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz föccer #49523 üzenetére

  Makrós megoldást tudok, a ThisWorkbook laphoz kell rendelned. A G1 helyett azt a cellát add meg, ahova a felhasználó nevét szeretnéd biggyeszteni.
  Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim v
Set v = ActiveWorkbook.BuiltinDocumentProperties
ActiveSheet.Range("G1") = v(3)
End Sub

  Az ActiveSheet.Range("G1") = v(3) helyett megadhatod, hogy az élőfejben legyen a felhasználó neve, itt a jobb szélen.
  ActiveSheet.PageSetup.RightHeader = "Felhasználó: " & v(3)

Új hozzászólás Aktív témák