Alt Bilgi İçeriğine Kullanıcı Adını Eklemek

[denese]

Merhaba,

Range("A1").Value = Environ("USERNAME")

Bu kod ile kullanıcı adı bilgisi A1 hücresine yazdırılabiliyor. Yapmak istediğim ise sayfanın alt bilgi içeriğini "Bu form -Kullanıcı Adı- tarafından oluşturulmuştur" şeklinde oluşturmak. Kullanıcı adı bilgisi çalışma sayfasındayken görünsün istemiyorum. Sadece baskı ön izleme yapıldığında görünür olmalı. Uygulamak istediğim form ekte yer alıyor.

Yardımcı olabilir misiniz?

 

[turist]

VBA sayfasında
ThisWorkbook (BuÇalışmakitabı) kısmına aşağıdaki kodu yazın.
Deneme için yazıcınızda yazdırın.
Sonra sayfa yazdırma düzeninizi inceleyin.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.CenterFooter = "Bu form  " & Environ("username") & "  tarafından oluşturulmuştur."
End Sub

 

[denese]

VBA sayfasında
ThisWorkbook (BuÇalışmakitabı) kısmına aşağıdaki kodu yazın.
Deneme için yazıcınızda yazdırın.
Sonra sayfa yazdırma düzeninizi inceleyin.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.CenterFooter = "Bu form  " & Environ("username") & "  tarafından oluşturulmuştur."
End Sub

Çok teşekkür ederim Sayın turist, tam istediğim gibi oldu.

 

[turist]

Sağ olun,iyi çalışmalar.

 

[denese]

Sayın turist,

Alt bilgi yazı tipini "Arial" boyutunu "7" ve biçimini "italik" yapabilir miyiz. Sayfa yapısında ayarlıyorum fakat çıktı aldığımda değişiklikleri dikkate almıyor.

 

[turist]

Kodu

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.CenterFooter = "&""Arial,Italic""&7" & "Bu form  " & Environ("username") & "  tarafından oluşturulmuştur."
End Sub

şeklinde uygulayın.

 

[denese]

Sayın turist, tekrar teşekkür ediyorum. Çok sağolun.

 

[turist]

Rica ederim, siz de sağ olun.