Hallo zusammen,
folgendes Anliegen:
ich habe eine Arbeitsmappe mit 20 Tabellenblätter. Jedes Tabellenblatt hat drei Tabellen, die jeweils im Druckbereich als 3 einzelne Seiten vordefiniert sind.
Nun möchte via VBA einen Button mit einem Makro belegen, der mir ab Tabellenblatt 4 bis zum 20. Blatt jeweils die 3 Seiten eines Tabellenblattes ausdruck, wobei die ersten beiden in Hochformat und die 3. im Querformat ausgedruckt werden sollen.
Ich bin ein VBA Anfänger und baue daher auf eure/Ihre Hilfe.
Anbei mein derzeitiger Code, der leider nicht zum Ergebnis führt:
Dim i As Long
For i = 4 To 19 Step 1
Worksheets(i).Activate
Range("C7:T64", "E68:Q157").Select
ActiveSheet
.PageSetup
.Orientation = xlPortrait
ActiveWindow.Selection.PrintPreview
With ActiveSheet
.PageSetup
.Orientation = xlPortrait
.Range "E163:AB221"
End With
ActiveWindow.Selection.PrintPreview
Next
End Sub
|