çalışma kitabında kaç yazdırılabilir sayfa var?

[sunkid]

Merhaba Aradaşlar,

farklı sheetlerden oluşan bir excel çalışma kitabım var toplamda bu çalışma kitabında kaç yazdırılabilir alan olduğunu nasıl öğrenebilirim. Mesala shee1 de 7 sheet2 de 15 sayfa var gibi yada toplam 22 sayfa var gibi.

Şimdiden çok saolun

 

[sunkid]

yokmudur üstadlar böyle birşey

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Sub Yazdirilacak_Sayfa_Sayisi()
    For Each Sayfa In ThisWorkbook.Worksheets
        Say = Say + (Sayfa.HPageBreaks.Count + 1) * (Sayfa.VPageBreaks.Count + 1)
    Next
    
    MsgBox Say
End Sub

 

[sunkid]

hocam süpersiniz elinize sağlık