çalışma sayfasında çıktı sayfa sayıları

[modoste]

merhaba sayın hocalarım
çalışma sayfamdaki her sekmede çıktıya gönderilecek mavi kesikli çizgilerle belirlenmiş sayfa sonu sayılarını bir makro ile nasıl buluruz

Örnek Çalışma Sayfamda
Sayfa 1
Sayfa 2
Sayfa 3
Sayfa 4 yani 4 sekmem var

Sayfa 1 = 2 (sayfa sonu önizleme tıkladığımda yazıcıdan 2 sayfa çıktı alabiliyorum)
Sayfa 2 =42
Sayfa 3 = 1
Sayfa 4 = 16 bu sonucu verecek makro yapabilir miyiz.

 

[ÖmerFaruk]

Sub SayfaSayısı()
    Dim SayfaSonuSayısı_Yatay As Integer, SayfaSonuSayısı_Dikey As Integer, ToplamSayfa As Integer
    Dim Sh As Worksheet
    For Each Sh In Worksheets
        SayfaSonuSayısı_Yatay = Sh.HPageBreaks.Count + 1
        SayfaSonuSayısı_Dikey = Sh.VPageBreaks.Count + 1
        ToplamSayfa = SayfaSonuSayısı_Yatay * SayfaSonuSayısı_Dikey
        Mesaj = Mesaj & Chr(10) & Sh.Name & " = " & ToplamSayfa
    Next Sh
    MsgBox Mesaj
End Sub

 

[modoste]

teşekkür ederim hocam uyguladım ve sonucun resmini ekliyorum

 

[veyselemre]

Sub SayfaSayısı()
    Dim Sh As Worksheet
    For Each Sh In Worksheets
        Mesaj = Mesaj & Chr(10) & Sh.Name & " = " & Sh.PageSetup.Pages.Count
    Next Sh
    MsgBox Mesaj
End Sub

 

[modoste]

Sayın veyselemre sizin makroyuda denedim aynı resimdeki sonuçları aldım
teşekkürler

 

[veyselemre]

Gibi bir sayfa dizaynında sonuçları karşılaştırın.