Outlook Kullanıcı Bilgisini Ekleme

[Turkbey41]

Merhaba,

Server sisteminde çalışan excel dosyasından çıktı alan kişinin bilgisinin alt bilgi veya üst bilgi olarak kağıtta gözükmesini istiyoruz. (Şuan için C3 hücresi uygundur.)

Office 365 kullanıyoruz.

Ayrı şimdi formulünü alt bilgi yada üst bilgi olarak eklememiz mümkün müdür?

 

[Asri]

VBA ile çözüm denenebilir.

Kaynak:

adding the username to a header - Microsoft Q&A

Within 'Page Setup - Header/Footer - custom header', is it possible to add the username thus: Printed on &[Date] at &[Time] by &[UserName] where UserName is determined by the following function in a module: Function UserName() …

answers.microsoft.com

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Dim wsh As Worksheet
    For Each wsh In Me.Worksheets
        wsh.PageSetup.CenterFooter = "Printed on &D at &T by " & Environ("Username")
    Next wsh
End Sub

 

[Turkbey41]

@Asri bey başka bir şey eklemem gerekiyor mu? Bu kodu yazdığımda yazdır önizleme ekranında herhangi bir değişiklik olmadı.

 

[Asri]

@Asri bey başka bir şey eklemem gerekiyor mu? Bu kodu yazdığımda yazdır önizleme ekranında herhangi bir değişiklik olmadı.

Makroyu " Bu çalıişma kitabı" na yapıştırın.

Ön izlemede çalışmaz. Yazdırma sırasında çalışır.
Bir defa yazdırma yaptıktan sonra ön izleme de de görebilirsiniz.

Kodda bir değişiklik yaptığınızda tekrar yazdırmanız gerekir.
Yazdırma denemesi olarak "Microsoft Print to Pdf" gibi farklı bir yazıcıda seçip deneyebilirsiniz.

 

[Turkbey41]

@Asri bey çok teşekkür ederim. Harika oldu.

Peki bu bilgiyi belli bir hücreye koymam mümkün mü ?

Bende nette aşağıdaki kaynağı buldum.

Kaynak

 

[Asri]

@Asri bey çok teşekkür ederim. Harika oldu.

Peki bu bilgiyi belli bir hücreye koymam mümkün mü ?

Bende nette aşağıdaki kaynağı buldum.

Kaynak

Ayarlar sayfasındaki A1 hücresi için bu şekilde deneyin.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Dim wsh As Worksheet
    For Each wsh In Me.Worksheets
        wsh.PageSetup.CenterFooter = sheets("Ayarlar").range("A1").value
    Next wsh
End Sub

 

[Turkbey41]

VBA ile çözüm denenebilir.

Kaynak:

adding the username to a header - Microsoft Q&A

Within 'Page Setup - Header/Footer - custom header', is it possible to add the username thus: Printed on &[Date] at &[Time] by &[UserName] where UserName is determined by the following function in a module: Function UserName() …

answers.microsoft.com

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Dim wsh As Worksheet
    For Each wsh In Me.Worksheets
        wsh.PageSetup.CenterFooter = "Printed on &D at &T by " & Environ("Username")
    Next wsh
End Sub

@Asri bey bu kodları bazı excellerde sorunsuz şekilde kullanıyorum. Fakat bazılarında ise çalışmıyor.

Kodu vba 'da modül olarak ekledim.

 

[Greenblacksea53]

Merhaba,

Server sisteminde çalışan excel dosyasından çıktı alan kişinin bilgisinin alt bilgi veya üst bilgi olarak kağıtta gözükmesini istiyoruz. (Şuan için C3 hücresi uygundur.)

Office 365 kullanıyoruz.

Ayrı şimdi formulünü alt bilgi yada üst bilgi olarak eklememiz mümkün müdür?

Sub Altust()
    Dim Kelime As String
    Kelime = Range("C3").Value ' C3 hücresindeki değeri alır
    ActiveSheet.PageSetup.CenterFooter = Kelime ' Alınan değeri alt bilgi olarak ayarlar
    ActiveSheet.PrintOut ' Belgeyi yazdırır
End Sub

Denermisin ben deneyemiyorim telden yazıyorum

 

[RBozkurt]

PC kullanıcı adını referans alır.

Sub Yazdir_UserName()

    'Kullanıcının adını alın
    Dim userName As String
    userName = Environ("USERNAME")
  
    'Sayfa altbilgisine kullanıcının adını ekle
    With ActiveSheet.PageSetup
        .CenterFooter =userName & " tarafından yazdırıldı. " & Format(Date, "mm/dd/yyyy") & " - " & Format(Time, "hh:mm:ss AM/PM")
    End With
  
    'Sayfayı yazdır
    ActiveSheet.PrintOut
  
End Sub