Anzahl der Druckseiten ermitteln

Mit dem folgenden VBA-Code unter kann unter Verwendung eines Excel4Makros die Anzahl der Druckseiten ermittelt werden.

Um die Druckseiten eines Tabellenblattes zu berechnen, verwenden Sie bitte den Code aus Listing 1.

Listing 1:

Sub AnzahlDruckseitenBlatt()
'** Anzahl der Druckseiten ermitteln
anz = ExecuteExcel4Macro("Get.document(50)")
MsgBox "Es sind " & anz & " Druckseiten"
End Sub

 

Mit dem Code aus Listing 2 werden die Druckseiten der gesamten Arbeitsmappe, also die Summe der Seiten sämtlicher Tabellenblätter ermittelt.

Listing 2:

Sub AnzahlDruckseitenArbeitsmappe()
'** Anzahl der Druckseiten ermitteln

'** Dimensionierung der Variablen
Dim blatt As Object

'** Alle Blätter durchlaufen
For Each blatt In Sheets

  anz = anz + ExecuteExcel4Macro("Get.document(50)")

Next blatt

'** Ausgabe
MsgBox "Es sind " & anz & " Druckseiten"
End Sub