Druckauswahl

[Lines]

Hallo zusammen,

ich möchte per Makro von einer Exceldatei die Tabellenblätter "1"; "4"; und von Blatt "5" die Seiten "eins" und "drei" drucken, hat da jemand eine Idee für mich?

[autostrada]

So kannst du die Blätter 1 und 4 ausdrucken:

Code:

Sub drucken()
'
' drucken Makro
'

'
   Sheets(Array("Tabelle1", "Tabelle4")).PrintOut Copies:=1
End Sub

Aber was meinst du mit: 

und von Blatt "5" die Seiten "eins" und "drei" drucken,

[Lines]

Danke für den Hiweis mit dem Druck einzelner Tabellenblätter. Das ist soweit klar.

Aber:

eins meiner Tabellenblätter enthält mehrere Seiten die dann gedruckt werden würden. Davon benötige ich in 95% der Fälle nur Blatt eins und drei. Im Sinne der Einsparung von Ressourcen möchte ich die andern Blätter nicht gedruckt haben. Druckbereiche funktioniert nicht da ich variabele Datenmengen habe.

[Käpt'n Blaubär]

Hallo,

eigentlich hatte ich schon aufgegeben, diesen Thread wiederzufinden.

Das war jetzt nach minutenlanger Suche der letzte Versuch. Da zeigt sich
einmal mehr, was eine vernünftig durchdachte Anfragenüberschrift wert
sein kann, oder?
... also beim nächsten Mal ein bischen mehr überlegen, bitte.

... und nun zu dem, was ich fragen wollte, denn wenn ich Dich richtig
verstanden habe, dann willst Du sowas ähnliches?

[Kuwer]

Hallo Lines,

Sub Makro1()
 Worksheets(1).PrintOut
 Worksheets(4).PrintOut
 Worksheets(5).PrintOut From:=1, To:=1
 Worksheets(5).PrintOut From:=3, To:=3
End Sub

Gruß Uwe

[Lines]

Hallo,

eigentlich hatte ich schon aufgegeben, diesen Thread wiederzufinden.

Das war jetzt nach minutenlanger Suche der letzte Versuch. Da zeigt sich
einmal mehr, was eine vernünftig durchdachte Anfragenüberschrift wert
sein kann, oder?
... also beim nächsten Mal ein bischen mehr überlegen, bitte.

... und nun zu dem, was ich fragen wollte, denn wenn ich Dich richtig
verstanden habe, dann willst Du sowas ähnliches?

Hallo und guten Morgen Käpt'n Blaubär,

mit der Überschrift hast du völlig recht, entschuldige. Was meine Fragestellung angeht passt allerdings die Lösung von Kuwer besser.

Grüße
Lines

[Lines]

Hallo Lines,

Sub Makro1()
 Worksheets(1).PrintOut
 Worksheets(4).PrintOut
 Worksheets(5).PrintOut From:=1, To:=1
 Worksheets(5).PrintOut From:=3, To:=3
End Sub

Gruß Uwe

Danke Kuwer,

das hab ich benötigt :19: 

Grüße
Lines