Özel Altbilgi

[alpay1]

Ã?zel Altbilgi

Yaptığım Excel çalışmasında "rapor" adlı sayfada UserForm daki butonla baskı önizlemeyi açtırıyorum.Buradan sayfayı yazdırıyorum.Sayfaya altbilgi olarak rapor sayfasındaki “M1” hücresindeki bilgiyi almak istiyorum.Nasıl bir kod yazmam gerektiği konusunda yardımcı olursanız sevinirim.

 

[Levent Menteşoğlu]

Aşağıdaki kod sanırım işinize yarar. Burada altbilgi ortaya alınıyor.
[vb:1:e50c951c44]ActiveSheet.PageSetup.CenterFooter =sheets("rapor"). range("M1").value
[/vb:1:e50c951c44]

 

[Ahmet1982]

Private Sub Workbook_BeforePrint(printir As Boolean)
   Set rpr = Sheets("Rapor")
    rpr.PageSetup.CenterFooter = rpr.[M1]
  Set rpr = Nothing
End Sub

.LeftFooter = Sol
.RightFooter = Sağ

 

[alpay1]

Sayın leventm beye ve Ahmet beye teşekkürler.Kodlar işimi gördü.