ich habe folgenden Code gepastelt um mehrere bereiche zu Drucken.
Private Sub CommandButton1_Click()
Dim Ber1 As Range, Ber2 As Range
Dim Bereiche As Range
Worksheets("Tabelle1").Activate
Set Ber1 = Range("A1:A5")
Set Ber1 = Range("C8:C10")
Set Bereiche = Union(Ber1, Ber2).Select
PrintOut Copies:=1, Collate:=True
End Sub
Es sollen die bereiche 1 und 2 auf eine Seite getruckt werden, wie müßte ich das makro ändern das es klappt?
Gruß Werner