Jak określić liczbę stron do wydrukowania w programie Excel

Podsumowanie

Aplikacja Microsoft Visual Basic for Applications nie udostępnia metody określania całkowitej liczby stron do wydrukowania w arkuszu. Można jednak użyć metody ExecuteExcel4Macro do użycia funkcji GET. Funkcja arkusza makr DOCUMENT(50) zwraca całkowitą liczbę stron, które mają zostać wydrukowane w aktywnym arkuszu.

Więcej informacji

Firma Microsoft udostępnia przykłady programowania tylko na ilustracje, bez gwarancji wyrażonej lub dorozumianej, w tym dorozumianych gwarancji przydatności handlowej i/lub przydatności do określonego celu. W tym artykule założono, że znasz język programowania oraz narzędzia służące do tworzenia i debugowania procedur. Specjaliści pomocy technicznej firmy Microsoft mogą pomóc w objaśnieniu funkcjonalności określonej procedury, ale nie zmodyfikują tych przykładów w celu zapewnienia dodatkowych funkcji ani skonstruowania procedur spełniających określone potrzeby.
Jeśli masz ograniczone doświadczenie w programowaniu, możesz skontaktować się z certyfikowanym partnerem firmy Microsoft lub usługami doradczych firmy Microsoft. Aby uzyskać więcej informacji, odwiedź następujące witryny internetowe firmy Microsoft:

Certyfikowani partnerzy firmy Microsoft — https://partner.microsoft.com/global/30000104

Microsoft Professional Services — https://www.microsoft.com/professionalservices/overview

Aby uzyskać więcej informacji na temat dostępnych opcji pomocy technicznej oraz sposobu kontaktu z firmą Microsoft, odwiedź następującą witrynę internetową firmy Microsoft:http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMSAby użyć następującego makra, skonfiguruj plik programu Microsoft Excel w następujący sposób:

1. Utwórz nowy skoroszyt programu Microsoft Excel.

2. Zaznacz zakres A1:J100.

3. Wprowadź liczbę 1 i naciśnij klawisze CTRL+ENTER. Powinny być widoczne wszystkie zaznaczone komórki wypełnione liczbą 1.

4. Wstawianie modułu makra języka Visual Basic.

5. Wpisz następujący kod w module:

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

7. Uruchom makro.

Informacje

Dodatkowe informacje na temat funkcji makra Get.Document można znaleźć w instrukcji obsługi funkcji programu Excel.