header and footer

[ozkankac]

sayin forum üyeleri;


header and footer ' a

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.RightFooter = ActiveWorkbook.FullName
End Sub

seklinde yapabiliyoruz peki.

peki herhangi bir sayfada ki herhangi bir hücrenin değerini yazdırabilirmiyiz mesala sheet2 de d9 hücresinin icindeki değeri gibi.
simdiden tesekkur ederim



Güç İnternette Artık

 

[Mahmut Bayram]

syn ozkankac, şöyle bir kod hazırladım

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Sheets(1).PageSetup.CenterFooter = Sheets(2).[A1]
End Sub

sayfa2 de A1 hücresine bir şey yazın. Sayfa1 önizleme de görün

sağda göstermek için
Center=Right yazarsınız. bunları biliyorsunuz