Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Alle Blätter drucken bis auf das 1.

Alle Blätter drucken bis auf das 1.
petra
Hallo,
würde gerne per Makro alle Tabellenblätter ausdrucken.
hab da mal was versucht:
geht das so?
Public

Sub Drucken()
Application.DisplayAlerts = False
Do Until Sheets.Count = 1
Sheets(2).Print
Loop
Application.DisplayAlerts = True
End Sub

Könnte man auch zuerst mit dem Ausdruck von Tabellenblatt 2 anfangen und bei i enden?
lg
petra
Anzeige
AW: Alle Blätter drucken bis auf das 1.
17.02.2006 10:56:33
yogi
Tach Petra
Sheets(2).Print druckt dir immer sheet(2)
also:
For sheet_nummer=2 to Until Sheets.Count
Sheets(sheet_nummer).Print
Next
Gruss
yogi
AW: Alle Blätter drucken bis auf das 1.
17.02.2006 11:03:54
petra
Hi yogi,
irgendwas stimmt noch nicht an der syntax
Public

Sub Drucken()
Application.DisplayAlerts = False
For sheet_nummer=2 to Until Sheets.Count
Sheets(sheet_nummer).Print
Next
Application.DisplayAlerts = True
End Sub

das ist das problem
For sheet_nummer=2 to Until Sheets.Count
wie muss das denn lauten?
lg
petra
Anzeige
AW: Alle Blätter drucken bis auf das 1.
17.02.2006 11:08:23
u_
Hallo,
schmeiß das Until raus.
Gruß
Geist ist geil!
AW: Alle Blätter drucken bis auf das 1.
17.02.2006 11:22:48
petra
jetzt beschwert er sich über
Sheets(sheet_nummer).Print
in
Application.DisplayAlerts = False
For sheet_nummer = 2 To Sheets.Count
Sheets(sheet_nummer).Print
Next
Application.DisplayAlerts = True
lg
petra
Anzeige
AW: Alle Blätter drucken bis auf das 1.
17.02.2006 11:59:57
u_
Hallo,
das heißt nicht Print sondern PrintOut
Gruß
Geist ist geil!
Danke! Funktioniert! o.T.
17.02.2006 12:08:49
petra
Sorry für das überflüssige "Until"! o.T
17.02.2006 11:20:32
yogi
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige