Makro "alle sheets drucken"

Bild

Betrifft: Makro "alle sheets drucken"
von: Sabine
Geschrieben am: 20.04.2005 18:12:07
N'Abend, liebe Excel-Gemeinde!
Versuche mich mal wieder vergeblich an einer Prozedur. Habe einen teil aufgezeichnet und nun nimmt er meine Übertragungen nicht an.


Sub Alle_Drucken()
sheets("Tabelle1", "Tabelle2", "Tabelle3").Select
SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

Falsche Anzahl an Argumenten, lautet die Fehlermeldung. Kann mir jemand sagen, was genau der Fehler ist? Das wäre nett.
VG, Sabi
Bild

Betrifft: AW: Makro "alle sheets drucken"
von: Beni
Geschrieben am: 20.04.2005 18:42:33
Hallo Sabi,
Gruss Beni


Sub Alle_Drucken()
For sh = 1 To Sheets.Count
Sheets(sh).PrintOut Copies:=1, Collate:=True
Next sh
End Sub

Bild

Betrifft: AW: Makro "alle sheets drucken"
von: Sabine
Geschrieben am: 21.04.2005 09:33:33
Ups, hat zwar funktioniert. Habe allerdings, nachdem ich eben 429 Seiten ausgedruckt habe, gemerkt, dass ich doch nicht alle sheets drucken will, sondern lieber diese expilizit angebe.

Sub Alle_Drucken()
Sheets("Tab1", "Tab2").PrintOut Copies:=1, Collate:=True
End Sub

Aber so klappt das mal wieder nicht. Hat jemand eine Idee?
VG; Sabi
Bild

Betrifft: AW: Makro "alle sheets drucken"
von: MichaV
Geschrieben am: 21.04.2005 10:01:10
Hi,
gem. Makrorecorder XL2000: SelectedSheets.PrintOut
Gruß- Micha
Bild

Betrifft: AW: Makro "alle sheets drucken"
von: Sabine
Geschrieben am: 21.04.2005 10:08:05

Sub AlleDrucken ()
   Sheets(Array("Tab1", "Tab2", "Tab3")).Select
   SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

Nee, klappt nicht. 'Laufzeitfehler 424 - Objekt erforderlich', sagt er mir...
Bild

Betrifft: AW: Makro "alle sheets drucken"
von: MichaV
Geschrieben am: 21.04.2005 10:15:17
Hi,
Sheets(Array("Tabelle1", "Tabelle3")).Select
Application.ActiveWindow.SelectedSheets.PrintOut
so gehts.
Gruß! Micha
Bild

Betrifft: AW: Makro "alle sheets drucken"
von: Sabine
Geschrieben am: 21.04.2005 10:23:31
Klappt. Danke schön.
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Userform Suchfunktion (Herausforderung)"