Yazdırılacak sayfa sayısını bulma

[denese]

Merhaba,

Çalışma sayfasındaki yazdırılacak sayfa sayısını A1 hücresinde nasıl gösterebilirim. Bu değer dinamik olsun istiyorum, bu nedenle buton yardımı olmamalı. Sayfa sayısı artığında ya da azaldığında A1 hücresindeki değer de değişmeli. Çok araştırdım çözüm bulamadım ancak KTF ile yapılabileceğini düşünüyorum.

Yardımcı olabilir misiniz.

 

[Haluk]

Çalışma sayfasının kod modülüne aşağıdakini yapıştırın;

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Range("A1").Value = ExecuteExcel4Macro("Get.Document(50)")
End Sub

.

 

[denese]

Çalışma sayfasının kod modülüne aşağıdakini yapıştırın;

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Range("A1").Value = ExecuteExcel4Macro("Get.Document(50)")
End Sub

.

Sayın Haluk bey, kod çalışıyor teşekkür ederim. Fakat şöyle bir durum oluştu; Çalışma sayfasında yazdırma başlıkları tanımlandığında, yazdırılacak toplam sayfa sayısı hatalı oluşuyor. Örnek dosya ekte yer alıyor. Bu durumu aşmanın bir yolu var mı?

 

[Necdet]

Bende denedim, bir 4 sayfa diyor bir 2 sayfa diyor. Kafasına göre takılıyor.

Haluk bey ne yapsın?

 

[denese]

Sanırım bir çözüm bulunamadı. Haluk bey, desteğiniz için tekrar teşekkür ediyorum.