Sayfayı yazdırmada ayar

[heft]

Merhabalar,
Sayfayı yazdır dediğimde o yazdırılılan sayfanın başlığının macrolarla değiştirmek istiyorum.
Mesela:Sayfa yapısı ayarlarında başlığı "AAA"olarak belirledim ama yazdır deyince bunu "BBB" olarak değiştirilmesini istiyorum.
olabilir mi?

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

[vb:1:67034b7ea9]ActiveSheet.PageSetup.CenterHeader = "bbb"[/vb:1:67034b7ea9]

 

[heft]

peki bunu cntl+P yaptığımda nasıl devreye girecek?

 

[Levent Menteşoğlu]

Aşağıdaki kodu Thisworkbook sayfasına kopyalayın. Yazdırma işlemi yaptığınızda kod kendiliğinden çalışacaktır.

[vb:1:51617c96a6]Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.CenterHeader = "bbb"
End Sub
[/vb:1:51617c96a6]

 

[heft]

tşk leventm