Sayfa sayısı

[ehmet]

Merhabalar;
Arkadaşlar bir sheet'te bulunan verilerimin ön izlemede kaç sayfa tuttuğunu sayabilecek bir makro yazılabilir mi,
Örneğin o sheet1 bazen 1 bazen 2 sayfa olacak ya da daha fazla veri barındırabilecek ve kod bunu 1 artırarak söyleyecek bana, sonucu 1 arttırarak
sheet2 de c10 hücresine yazacak.
teşekkürler.

 

[Necdet]

Merhaba,

Aşağıdaki kodları inceleyiniz. Kodlar ThisWorkBook un sayfasında olmalı.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    If ActiveSheet.Name <> "Sheet1" Then Exit Sub
    '''''''''''''''''''''''''''''''
    
    'Written by [URL="http://www.Ozgrid.com"]www.Ozgrid.com[/URL]
    
    
    
    'Count how many pages will be printed.
    
    ''''''''''''''''''''''''''''''''
    Dim iHpBreaks As Integer, iVBreaks As Integer
    
    Dim iTotPages As Integer
    iHpBreaks = Sheet1.HPageBreaks.Count + 1
    iVBreaks = Sheet1.VPageBreaks.Count + 1
 
    iTotPages = iHpBreaks * iVBreaks
    Sheet2.Range("C10") = iTotPages + 1
    
End Sub

 

[ehmet]

Merhaba,

Aşağıdaki kodları inceleyiniz. Kodlar ThisWorkBook un sayfasında olmalı.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    If ActiveSheet.Name <> "Sheet1" Then Exit Sub
    '''''''''''''''''''''''''''''''
    
    'Written by [URL="http://www.Ozgrid.com"]www.Ozgrid.com[/URL]
    
    
    
    'Count how many pages will be printed.
    
    ''''''''''''''''''''''''''''''''
    Dim iHpBreaks As Integer, iVBreaks As Integer
    
    Dim iTotPages As Integer
    iHpBreaks = Sheet1.HPageBreaks.Count + 1
    iVBreaks = Sheet1.VPageBreaks.Count + 1
 
    iTotPages = iHpBreaks * iVBreaks
    Sheet2.Range("C10") = iTotPages + 1
    
End Sub

tşkler sayın Yeşertener
Denedim oldu, sağolun.

 

[Korhan Ayhan]

Selamlar,

Ben 2 sayfalık bir dosyada denedim fakat koddan olumlu sonuç alamadım. Dosya ektedir.

 

[Necdet]

Selamlar,

Ben 2 sayfalık bir dosyada denedim fakat koddan olumlu sonuç alamadım. Dosya ektedir.

Merhaba Korhan bey,

Yazdırma Alanını Belirleyince doğru sonuça ulaşılıyor.

 

[Korhan Ayhan]

Selamlar,

Necdet bey aynı sitede aşağıdaki koda ulaştım. Bunda yazdırma alanı belirlemeye gerek kalmıyor. Önizleme ekranında görünen sayfa sayısını veriyor. Bu değerin üzerine bir eklediğimizde ise üyemizin istediği sonuca ulaşabiliyoruz.

Alternatif olarak kullanılabilir.

Option Explicit
 
Sub SAYFA_SAYISI()
    MsgBox ExecuteExcel4Macro("Get.Document(50)") + 1
End Sub

 

[Necdet]

Merhaba,

Daha kısa ve kullanışlı kod.