Drucke nicht die letzte Seite

Forumthread: Drucke nicht die letzte Seite
3 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Drucke nicht die letzte Seite

22.09.2005 15: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

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Drucke nicht die letzte Seite

22.09.2005 15:39:13

Hajo_Zi
AW: Drucke nicht die letzte Seite

22.09.2005 15:44:42

Klaus
AW: Drucke nicht die letzte Seite

22.09.2005 15:47:08

K.Rola

AW: Drucke nicht die letzte Seite

22.09.2005 15: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.

AW: Drucke nicht die letzte Seite

22.09.2005 15:44:42

Klaus

Funktioniert
Danke
Klaus

AW: Drucke nicht die letzte Seite

22.09.2005 15: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