Ich habe folgendes Makro zum Drucken geschrieben. Zusätzlich möchte ich noch folgende Befehle integrieren:
- Querformat
- Alle Spalten auf einer Seite darstellen
Wie muss ich den Code ergänzen?
Sub Drucken()
Application.EnableEvents = False
Application.ScreenUpdating = False
Application.PrintCommunication = False
With ActiveSheet
.PageSetup.PaperSize = xlPaperA4
.PageSetup.PrintTitleRows = "$1:$1"
.PageSetup.PrintArea = "A2:" & ActiveCell.CurrentRegion.Cells(ActiveCell.CurrentRegion. _
Cells.Count).Address
.PrintOut Copies:=1, Copies:=1, Collate:=True, IgnorePrintAreas:=False
.PageSetup.PrintArea = ""
End With
Application.PrintCommunication = True
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Vielen Dank und Gruss
Gregor