Brauchen Sie Hilfe?
Web:     Online-Formular
E-Mail:  
Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein!
Tel:       +49(0)151 / 164 55 914

Nutzen Sie für Ihre Anfrage unser Online-Formular oder senden Sie uns eine E-Mail an Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein!. Gerne können Sie aber auch direkt telefonisch Kontakt aufnehmen.

   
     Referenzen
 Bosch 
  T-Systems
  Hagebau
  Siemens
 Areva  VW
 Haufe-Lexware  British American Tobacco
  nagel group farbe
   

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

 

 

   

Relevante Artikel

  • Wiederholungszeilen auf einige Seiten beschränken

    Mit diesem Makro können Wiederholungszeilen auf einige Seiten beschränkt werden. Standardmäßig werden bei Aktivierung dieser Funktion die Wiederholungszeilen auf allen vorhandenen Seiten ausgegeben.   Die...

  • Ausgewählte Tabellenblätter drucken

    Wenn nicht die gesamte Arbeitsmappe sondern nur ausgewählte Tabellenblätter einer Arbeitsmappe gedruckt werden sollen, können Sie folgenden VBA-Code verwenden. Sub mehrereSheetsDrucken() '**...

  • Druckbereich per VBA festlegen

    Wenn nicht das komplette Tabellenblatt gedruckt werden soll, kann ein sogenannter Druckbereich definiert werden. Damit kann festgelegt werden, welcher Bereich des Tabellenblatts gedruckt wird und...

  • 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...

  • Alle vorhandenen Drucker auslesen

    106009 Das nachfolgende Makro schreibt alle vorhandenen, installierten Drucker auf das erste Sheet in einer Arbeitsmappe. Sie müssen einfach nur den folgenden Code in ein Modul einfügen. Der Aufruf...

   

Excel-Inside auf Facebook Excel-Live News blog Excel-Inside RSS-Feed Twitter Account für Excel-Inside Mail an Excel-Inside 

Programmierung
Excel Auftragsprogrammierung Access Auftragsprogrammierung
Word Auftragsprogrammierung Outlook Auftragsprogrammierung
   
Unsere Produkte
Office Schulungen VBA, Excel, Access
E-Book Formeln und Funktionen Excel 2013