Microsoft Excel

Herbers Excel/VBA-Archiv

Drucke selectierte Sheets | Herbers Excel-Forum


Betrifft: Drucke selectierte Sheets von: Matthias
Geschrieben am: 25.01.2012 18:15:04

Hallo zusammen,

benötige eine Code Änderung, (flexible Auswahl)
wenn zb Sheet 1,3,7 selectiert sind, soll er mit den gleichen Einstellung wie im alten Code
diese Sheets drucken.

Array nutzen mit flexibler Auswahl ? ich weis echt nicht wie ich das lösen kann.

Sub drucke_Mappe_3U()

Select Case ActiveSheet.Name
    Case "1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12"
        Cells.EntireRow.Hidden = False
        Rows("5:30").Select
        Selection.EntireRow.Hidden = True
        Rows("32:52").Select
        Selection.RowHeight = 35
            ActiveSheet.PageSetup.PrintArea = "A32:Aj52"
            ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
     Case Else
            ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Select

        Rows("32:52").Select
        Selection.RowHeight = 15
        Cells.EntireRow.Hidden = False
        Range("A3").Select
End Sub
Wenn ich mit dem geposteten code alle Sheets markiere 1-12, dann ist Sheet1 Ok der Rest der Sheets,
übernimmt er die Zeilenhöhe nicht und der Druckbereich ist auch anders.

Vorab schon jetzt einen Dank an Euch Helfer,

Mfg Matthias

  

Betrifft: AW: Drucke selectierte Sheets von: Rudi Maintaire
Geschrieben am: 25.01.2012 19:36:11

Hallo,
versuchs mal so:

Sub drucke_Mappe_3U()
  Dim wks As Worksheet
  For Each wks In ActiveWindow.SelectedSheets
    With wks
      .Rows.Hidden = False
      .Rows("5:30").Hidden = True
      .Rows("32:52").RowHeight = 35
      .PageSetup.PrintArea = "A32:AJ52"
      .PrintOut
    End With
  Next
End Sub

Gruß
Rudi


  

Betrifft: AW: @Rudi - Danke , jawoll, so ist gut- owT von: Matthias
Geschrieben am: 25.01.2012 20:25:31

.


Beiträge aus den Excel-Beispielen zum Thema "Drucke selectierte Sheets"