Sheet adını üst ya da yazıcıda yazdırma

[istanbulcahan]

Bayağı elimde dosya var. bunlara her birine ayrı ayrı üst bilgi yada alt bilgi bölümüne başlık girmek zor oluyor. Sheet adını üst bilgi ya da alt bilgi bölümünde yazıcıda yazdırmak istiyorum.Nasıl yapılabilir.

 

[halit3]

Bayağı elimde dosya var. bunlara her birine ayrı ayrı üst bilgi yada alt bilgi bölümüne başlık girmek zor oluyor. Sheet adını üst bilgi ya da alt bilgi bölümünde yazıcıda yazdırmak istiyorum.Nasıl yapılabilir.

bu işinizi görürmü.?

Sub yazdır()
ActiveSheet.PageSetup.RightHeader = "&F" 'üst sağ sayfa adı
ActiveSheet.PageSetup.RightFooter = "&F" 'alt sağ sayfa adı
ActiveSheet.PageSetup.PrintArea = "$A$2:$H$35"
'ActiveSheet.PrintPreview
ActiveSheet.PrintOut Copies:=1, Collate:=True
End Sub