Bir çalışma sayfasındaki basılmış sayfa sayısını nasıl sayarsınız?

Bir çalışma sayfasını yazdırmadan önce, ileri düzeyde toplam basılmış sayfa sayısını bilmek isteyebilirsiniz. Bu makalede, size bu konuda bazı ipuçlarını tanıtmak istiyorum.

Yazdır özelliği ile basılmış sayfa sayısını sayma

VBA kodu ile basılmış sayfa sayısını sayma

Kutools for Excel ile basılmış sayfa sayısını sayma

Yazdır özelliği ile basılmış sayfa sayısını sayma

Yazdırmadan önce basılmış sayfa sayısını saymak için Yazdır bölümüne giderek sayımı görüntüleyebilirsiniz.

Basılmış sayfaları saymak istediğiniz sayfayı etkinleştirin ve tıklayın Dosya > Yazdır, ardından basılmış sayfa sayısını görüntüleyebilirsiniz.

Not: Ayarlar altında yer alan açılır listeden baskı ölçeğini değiştirebilirsiniz.

VBA kodu ile basılmış sayfa sayısını sayma

Ayrıca, bir çalışma sayfasındaki basılmış sayfa sayısını söyleyebilecek bir VBA kodu da bulunmaktadır.

1. Sayımı yapmak istediğiniz sayfayı etkinleştirin, Alt + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.

2. Ekle > Modül'e tıklayın, ardından aşağıdaki kodu Modül'e yapıştırın.

VBA: Bir çalışma sayfasındaki basılmış sayfa sayısını sayma

Sub ShowMe()
    MsgBox ExecuteExcel4Macro("GET.DOCUMENT(50)") & _
        " pages will be printed."
End Sub

3. Kodu çalıştırmak için F5 tuşuna basın, ardından basılmış sayfa sayısını söyleyen bir iletişim kutusu açılacaktır. Ekran görüntüsüne bakınız:

Kutools for Excel ile basılmış sayfa sayısını sayma

Kutools for Excel'iniz varsa, Belirtilen Sayfaları Yazdır yardımcı programını kullanabilir ve ardından etkin çalışma sayfasının basılmış sayfalarını görüntüleyebilirsiniz.

Kutools for Excel'i yükledikten sonra lütfen aşağıdaki adımları izleyin:(Kutools for Excel Ücretsiz İndir!)

Sayfa sayısını saymak istediğiniz sayfayı etkinleştirin, tıklayın Kutools Plus > Yazdırma > Belirtilen Sayfaları Yazdır, ardından açılan iletişim kutusunda sayfa sayısını görüntüleyin. Ekran görüntüsüne bakınız:

Not: Belirtilen Sayfaları Yazdır yardımcı programıyla yalnızca tek sayfaları, çift sayfaları veya belirli sayfaları yazdırabilirsiniz.

İpucu. Belirtilen Sayfaları Yazdır işlevini ücretsiz denemek isterseniz, lütfen önce Kutools for Excel'i ücretsiz indirin ve ardından yukarıdaki adımlara göre işlemi uygulayın.

Demo