Unterschiedliche Varianten per Makro drucken - Excel

Als Erstes müssen Sie auf jedem Tabellenblatt die korrekte Seiteneinrichtung einstellen, welche dann gilt, wenn die kompletten Tabellen ausgedruckt werden. Um die gesamte Arbeitsmappe auszudrucken, verwenden Sie folgendes Makro:

Das 2. Makro, welches einen Teil von jedem Tabellenblatt ausdrucken soll, sieht folgendermassen aus:

Es wird hier davon ausgegangen, dass sich die zu druckenden Daten auf jedem Blatt im selben Bereich befinden. Die Code-Zeilen mit "ActiveSheet.PageSetup..." sind als optional zu betrachten, deshalb sind sie hier auskommentiert. Sie benötigen sie dann, wenn beim Ausdruck dieser Teilbereiche eine andere Seitenorientierung verwendet werden soll. Ursprünglich ist die Seiteneinrichtung bei allen Blättern auf "QUER" (xlLandscape) eingestellt und wird für den Ausdruck jedes Teilbereichs temporär auf "LÄNGS" (xlPortrait) geändert.

-----------------------------------------------

MAKROS ZUM KOPIEREN:

-----------------------------------------------

Sub GesamteMappeDrucken()

ActiveWorkbook.PrintOut Copies:=1, Collate:=True

End Sub

-----------------------------------------------

Sub BereichAufAllenBlaettern()

Dim i As Integer

Dim B As String

B = ("N1:S34") 'hier den Bereich angeben

For i = 1 To Worksheets.Count

Worksheets(i).Select

Range(B).Select

'ActiveSheet.PageSetup.Orientation = xlPortrait

Selection.PrintOut Copies:=1, Collate:=True

'ActiveSheet.PageSetup.Orientation = xlLandscape

[a1].Select

Next i

End Sub

-----------------------------------------------