Üst Bilgi

[yanginci34]

Arkadaşlar merhaba; Öncelikle sizlerin sayesinde excell hakkında çok şey öğrendim. Yardım eden arkadaşlara çok teşekkür ederim. Soruma gelince, sayfayı yazdıracağım zaman üst bilgide .....'nolu yakıt alım detaylarınız... yazıyor. Bu yazıdaki noktalı kısıma o sayfanın h2 hücresinde ne yazıyorsa onu o üst bilgi kısmına nasıl yazdıra biliriz.

 

[YUSUF44]

Aşağıdaki kodları ilgili dosyanın VBA bölümünde ThisWorkbook - BuÇalışmaKitabı bölümüne yapıştırırsanız yazdırmadan önce üst bilgiyi istediğiniz gibi değiştirir. Kodda sadece belirli sayfada iken çalışması için farklı düzenlemeler yapılabilir. Yalın hali şu şekilde:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
 With ActiveSheet.PageSetup
        .CenterHeader = _
        "&""Times New Roman,Kalın""&12 " & [H2] & " NOLU YAKIT ALIM DETAYLARINIZ"
  End With
End Sub

 

[yanginci34]

Çok teşekkür ederim üstadım.