Her çıktı için üst/alt bilgi yazdırma makrosu

[abtani]

Bir excel dosyasından elde edilecek her çıktıdan;
1- Üst Bilgi olarak ;
"BU BİR DENEME TABLOSUDUR"
2- Alt bilgi olarak;üç satır olarak;
"İSİM 1 İSİM 2 İSİM 3 İSİM 4 İSİM 5"
"İMZA İMZA İMZA İMZA İMZA"
" sayfa1 / toplam sayfa"
şeklinde bir makro düzenlenebilirmi?
NOT:Sayfa yapısı / üst-alt bilgi menüsünden yaptığımda 255 den fazla karekter kullanıldığı için yapılamayacağı şeklinde bir mesaj gelmektedir.

 

[uzmanamele]

merhaba
aşağıdaki linkdeki bilgiler işinize yarayabilir

http://www.excel.web.tr/showthread.php?t=49251

 

[abtani]

Site arama motoru ile dediğiniz linki incelemiştim,fakat özellikle alt allta 3 satır gelecek şekilde bir düzenleme yapmayı beceremedim.

 

[ECYavuz]

Gününüz Aydın olsun bir örnek de benden olsun...

Sub InsertHeaderFooter()
' inserts the same header/footer in all worksheets
Dim ws As Worksheet
Application.ScreenUpdating = False
For Each ws In ActiveWorkbook.Worksheets
Application.StatusBar = "Changing header/footer in " & ws.Name
With ws.PageSetup
.LeftHeader = "Company name"
.CenterHeader = "Page &P of &N"
.RightHeader = "Printed &D &T"
.LeftFooter = "Path : " & ActiveWorkbook.Path
.CenterFooter = "Workbook name &F"
.RightFooter = "Sheet name &A"
End With
Next ws
Set ws = Nothing
Application.StatusBar = False
End Sub

 

[ECYavuz]

.LeftFooter = "Adı ve Soyadı " & CrLf & "İmza :"

Bir den fazla satır için Şeklinde denediniz mi?

 

[abtani]

.LeftFooter = "Adı ve Soyadı " & CrLf & "İmza :"
Bir den fazla satır için Şeklinde denediniz mi?

Sayın ECYavuz ilginize teşekkür ederim.

Üst bilgi tamam,fakat alt bilgi olmadı.
Alt bilgi satırına sayfa ortalayarak
İSİM 1-ÜNVAN İSİM 2-ÜNVAN İSİM 3-ÜNVAN
Bir satır boşluk
İSİM 4-ÜNVAN İSİM 5-ÜNVAN
Bir satır boşluk
Sayfa no / toplam sayfa
kalıbına uyarlamak istiyorum,fakat olmadı.Buna uygun düzenleme yapabilirmisiniz?