Dim kullanımı

[torqanum]

d:\deneme.xls dosyasının form sekmesindeki P3 hücresini (range("P3").value) bir mytext değişkenine atamak ve bu değişkeni pagesetup.rightheader = "&""arial""&20 mytext" şeklinde yerine koyarak sağ üstbilgi kısmında P3 hücresine yazılan metnin çıktıda görünmesi isteniyor. makro kodu nasıl olur? Teşekkür ederim...

 

[Husgvarna]

Aşağıdaki gibi olabilir:

 mytext = Range("p3").Value
 Sheets("form").PageSetup.RightHeader = "&""Arial,Bold""&20" & mytext

 

[torqanum]

Malesef olmadı. Başka bir şekilde olabilir mi?

 

[hamitcan]

ThisWorkBook kısmına ekleyin.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
mytext = Range("p3").Value
 ActiveSheet.PageSetup.RightHeader = "&""Arial,Bold""&20" & mytext
End Sub

 

[torqanum]

Allah razı olsun...