Excel'de kaç sayfa yazdırılacağını belirleme

Özet

Microsoft Visual Basic for Applications toplam çalışma sayfasına yazdırılacak sayfa sayısını belirlemek için bir yöntem sağlamaz. Ancak, GET kullanmak için ExecuteExcel4Macro yöntemini kullanabilirsiniz. Etkin çalışma sayfasında yazdırılacak sayfaların toplam sayısını döndürmek için makro sayfası işlevi DOCUMENT(50).

Daha fazla bilgi

Microsoft, ancak bunlarla sınırlı olmamak, satılabilirlik ve/veya belirli bir amaca uygunluk zımni garantiler de dahil olmak üzere, zımni veya açık garanti programlama örneklerini yalnızca gösterim amacıyla sağlar. Bu makale, gösterilen programlama dilini ve oluşturmak ve yordamlar hata ayıklamak amacıyla kullanılan araçları kullanmayı bildiğinizi varsayar. Microsoft destek uzmanları belirli bir yordamın işlevselliğinin açıklanmasına yardımcı olabilir, ancak işlevsellik sağlamak veya yordamlar, belirli gereksinimlerinizi karşılayacak şekilde geliştirmek amacıyla bu örnekleri değiştirmezler.
Programlama deneyiminiz kısıtlıysa, bir Microsoft Sertifikalı ortağı veya Microsoft Danışmanlık Hizmetleri başvurmak isteyebilirsiniz. Daha fazla bilgi için aşağıdaki Microsoft Web sitelerini ziyaret edin:

Microsoft Sertifikalı İş ortakları - https://partner.microsoft.com/global/30000104

Microsoft Danışmanlık Hizmetleri - http://support.microsoft.com/gp/advisoryservice

Kullanılabilir destek seçenekleri ve Microsoft'a başvurma hakkında daha fazla bilgi için aşağıdaki Microsoft Web sitesini ziyaret edin:http://support.microsoft.com/default.aspx?scid=fh; EN-US; CNTACTMSaşağıdaki makroyu kullanmak için bir Microsoft Excel dosyasını aşağıdaki gibi ayarlayın:

1. Yeni bir Microsoft Excel çalışma kitabı oluşturun.
   

2. A1:J100 aralığı seçin.
   

3. 1 sayısını girin ve CTRL + ENTER tuşlarına basın. Sayı 1 ile doldurulmuş seçili hücrelerin tümünü görmeniz gerekir.
   

4. Visual Basic makro modülünü yerleştirin.
   

5. Modüle aşağıdaki kodu yazın:

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

7. Makroyu çalıştırın.

Başvurular

Excel işlev başvuru kılavuzunda Get.Document makro işlevi hakkında ek bilgi bulunabilir.