Menge der Seiten für den Druck zählen

Forumthread: Menge der Seiten für den Druck zählen
3 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Menge der Seiten für den Druck zählen

05.03.2003 21:32:46

Thomas Weiss

Hallo,

wie kann ich folgendes erreichen, bevor Excel einen Druckauftrag an den Drucker, sendet sollen die Anzahl der Seiten angezeigt werden. Wie geht soetwas? Das eigentliche Drucken über ein Userform CommandButton funktioniert. Dafür benutzte ich folgenden Befehl:

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Vielen Dank für die Hilfestellung!

Gruß
Thomas

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: Menge der Seiten für den Druck zählen

05.03.2003 21:36:29

Hajo_Zi
Re: Menge der Seiten für den Druck zählen

05.03.2003 21:38:06

andreas e
Re: Menge der Seiten für den Druck zählen

05.03.2003 21:43:49

Thomas Weiss

Re: Menge der Seiten für den Druck zählen

05.03.2003 21:36:29

Hajo_Zi

Hallo Thomas

Anzahl der Seiten beim Ausdrucken
Sub DruckseitenAnzahlTabelle()
Dim i As Integer
i = ExecuteExcel4Macro("Get.Document(50)")
ActiveCell.Value = i
MsgBox "Anzahl der Seiten = " & i
End Sub
Von Herbert Grom

Gruß hajo

Re: Menge der Seiten für den Druck zählen

05.03.2003 21:38:06

andreas e

hallo thomas,
dieses makro liefert dir die letzte seitenzahl

Sub Seitenzahlen()
Dim Obergrenze As Integer
Obergrenze = ExecuteExcel4Macro("Get.Document(50)")
MsgBox Obergrenze
End Sub

gruß
andreas e
http://www.skripteundaufgaben.de viele kostenlose Downloads und Lösungsansätze zu EXCEL und mehr