Microsoft Excel

Herbers Excel/VBA-Archiv

Print

Betrifft: Print von: Peter N.
Geschrieben am: 25.08.2004 20:45:36

Hi Experts,
Ausgangssit: Ich habe eine Arbeitsmappe, mit vielen Sheets, von denen die ersten 5 nur zur organisation, einzufuegen von neuen Sheets und upadeten der vorhanden sheets gebraucht werden.

Frage: Ich wuerde nun gerne eine Button integieren, der alle Sheets ab dem 6 Sheet bis zum ende ausdruckt. Wichtig wie gesgta wieviele Sheets gedruckt werden kann variieren, aber definitiv immer erst ab dem 6. Kann mir jemand mit dem code helfen?

Danke und bye Peter

  


Betrifft: AW: Print von: Uduuh
Geschrieben am: 25.08.2004 21:00:11

Hallo,
etwa so:
Sub Drucken()
Dim i As Integer
For i = 6 To Worksheets.Count
Worksheets(i).PrintOut
Next i
End Sub

Gruß aus'm Pott
Udo


  


Betrifft: AW: Print von: Peter N.
Geschrieben am: 25.08.2004 21:25:18

Udo,
das kommt der sache shcon sehr nah. einziger hacken, mit der loesung ruft er jedes Sheet auf und druckt es dann..
Kann man das so loesen, dass erst alle Sheets markiert werden und dann gedruckt wird?

Gruss Peter


  


Betrifft: AW: Print von: Excel
Geschrieben am: 25.08.2004 22:39:59

hi

Sub markieren()
For i = 6 To Sheets.Count
Sheets(i).Select Cancel = True
ActiveWindow.SelectedSheets.PrintOut
Sheets(1).Select
Next
End Sub


Gruß
Christian


  


Betrifft: ups so natürlich von: Excel
Geschrieben am: 25.08.2004 22:43:32

hi

Sub markieren()
For i = 6 To Sheets.Count
Sheets(i).Select Cancel = True
Next
ActiveWindow.SelectedSheets.PrintOut
Sheets(1).Select
End Sub


man sollte doch vorher testen

Gruß
Christian


  


Betrifft: arghh ist schon spät heute so letzte Fassung von: Excel
Geschrieben am: 25.08.2004 22:46:34

Sub markieren()
Sheets(6).Select
For i = 6 To Sheets.Count
Sheets(i).Select Cancel = True
Next
ActiveWindow.SelectedSheets.PrintOut
Sheets(1).Select
End Sub


ansonsten kann noch ein falsches Blatt gewählt sein
Gruß
Christian


  


Betrifft: Geschlossen & Danke!! von: Peter
Geschrieben am: 25.08.2004 23:02:10

Christian,
perfect klappt besten...

Gruss Peter