Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
668to672
668to672
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Drucke nicht die letzte Seite

Forumthread: Drucke nicht die letzte Seite

Drucke nicht die letzte Seite
22.09.2005 13:32:40
Klaus
Hallo zusammen,
ich habe folgendes Problem zu lösen.
Die letzte Seite soll nicht gedruckt werden.
Dadurch das die Anzahl der Seiten verschieden ist, weiss ich nicht welche Seitenzahl die letzte Seite hat.
Wie komme ich an die Anzahl der Seiten, um sie bei printout.to einzutragen.
Vielen Dank für eure Hilfe
Klaus
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Drucke nicht die letzte Seite
22.09.2005 13:39:13
Hajo_Zi
Hallo KLaus,
Option Explicit

Sub test()
MsgBox Worksheets(1).HPageBreaks.Count + 1
End Sub

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem Windows 2000 SP4 und Excel Version 2000 SP3.


Anzeige
AW: Drucke nicht die letzte Seite
22.09.2005 13:44:42
Klaus
Funktioniert
Danke
Klaus
AW: Drucke nicht die letzte Seite
22.09.2005 13:47:08
K.Rola
Hallo,

Sub AnzahlDruckseiten()
Dim Seitenzahl As Long
Seitenzahl = ExecuteExcel4Macro("Get.Document(50)")
MsgBox "Anzahl der Seiten: " & Seitenzahl - 1
End Sub

Gruß K.Rola
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige