Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
668to672
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
668to672
668to672
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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.


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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige