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

 

 

   

Excel-Inside auf FacebookExcel-Live News blogExcel-Inside RSS-FeedMail an Excel-InsideTwitter Account für Excel-InsideMail an Excel-Inside

Office Programmierung

Excel Auftragsprogrammierung

Access Auftragsprogrammierung

Word Auftragsprogrammierung

Outlook Auftragsprogrammierung

 

 

 

 




   
Office Schulungen VBA, Excel, Access
E-Book Formeln und Funktionen Excel 2013
Excel-Inside Newsletter abonnieren
   

Backlink  

ERROR: PAGE_URL belons not to given domain: 573001800