Makro ile belirli bir hücreye sayfa sayısı yazdırma

[bezl]

İyi günler,
Makro ile bir hücreye o belgenin sayfa sayısını yazdırmak istiyorum nasıl yapabilirim.

 

[zafer]

Merhaba

A1 hücresine yazar

sub sayfasay()

Cells(1, 1) = Sheets.Count

End sub

 

[bezl]

Sayfa sayısı derken sayfayı yazdırırken bulunduğumuz sayfanın kaç sayfa olduğunu göstermeyi kastetmiştim

 

[bezl]

Bu konuya bir el atacak arkadaş yok mu ya?

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin. Yazdırılacak sayfa sayısını verir.

[vb:1:3ab9d7efad]Sub sayfasay()
Application.ScreenUpdating = False
ActiveWindow.View = 2
say = ActiveSheet.HPageBreaks.Count + 1
ActiveWindow.View = 1
MsgBox say
End Sub
[/vb:1:3ab9d7efad]

 

[Haluk]

Sub Test()
    Dim NoSh As Long
    NoSh = ActiveSheet.HPageBreaks.Count + 1
    Range("A1").Value = NoSh
End Sub

 

[Haluk]

Levent dostum, özür dilerim.... sayfayı güncellemeden mesajı post etmiştim.

 

[Levent Menteşoğlu]

Rica ederim dostum hiç önemli değil. Yalnız bu kodu daha önceleride denerken normal sayfa görüntüsünde doğru sayıyı vermediğini, ancak sayfasonu özinleme görüntüsünde doğru sonucu verdiğini gördüm. Sebebinide açıkçası bilmiyorum.

görünüm-sayfasonuözinleme

 

[bezl]

Çok teşekkür ederim...
Şimdi yazdırmadan önce eventiyle bir hücreye sayfa sayısını yazdır diyorum ama önizleme yaparken de kodu çalıştırıyor önizleme yaparken çalışmamasını sağlayabilir miyiz?