makro ile altbilgi

[osmanli2]

Sayın üstadlarım, bir excel sayfasını yazdırırıken alt bilginin makro kodları ile otomatik yasılsın istiyorum. teşekkür ederim

 

[N.Ziya Hiçdurmaz]

yanıt

Sub altbilgi()
Dim deg As String
On Error Resume Next
deg = InputBox("Alt bilgiyi yazınız.")
ActiveSheet.PageSetup.CenterFooter = deg
ActiveSheet.PrintOut
End Sub

 

[aafa1921]

Makro ile altbilgi

Merhaba;
Makro yazmayı bilmiyorum ama makro kaydederek üstbilgi, altbilgi ayarlarını düzenleyip yazdır dersiniz ve bu şekilde kaydeder, sonra da bu makroyu bir butona, şekile veya bir metin kutusuna atayarak buraya her tıkladığınızda aynı şekilde üstbilgi altbilgi ayarlarını uygulatıp yazdırabilirsiniz. Bu şekilde yapmayı hiç düşündünüz mü?