ich nochmal mit einer bitte.
Ich brauchte ein Makro wo ich die Zeilen A bis F und die Spalten 4 bis 17 in Querformat drucken kann. Die Tabelle heißt Aktuell.
Ich danke in voraus.
Ich hoffe es ist machbar.
Nick
Public Sub Drucken()
Dim a$
a = MsgBox("Wollen Sie Drucken ?", vbYesNo, "")
If a = vbNo Then Exit Sub
Application.ScreenUpdating = False
With Sheets("AKTUELL")
With .PageSetup
.LeftHeader = "&A"
.CenterHeader = ""
.RightHeader = "Page &P"
.LeftFooter = "&8&Z&F"
.RightFooter = Format(Date, "dd.mm.yy")
.Orientation = xlLandscape
.PrintArea = "$A$4:$F$17"
.Zoom = 90
.PrintQuality = 600
End With
.PrintOut Copies:=1, Collate:=True
End With
Application.ScreenUpdating = True
End Sub
Public Sub Drucken()
Dim a$
a = MsgBox("Wollen Sie Drucken ?", vbYesNo, "")
If a = vbNo Then Exit Sub
Application.ScreenUpdating = False
With Sheets("AKTUELL")
With .PageSetup
.LeftHeader = "&A"
.CenterHeader = ""
.RightHeader = "Page &P"
.LeftFooter = "&8&Z&F"
.RightFooter = Format(Date, "dd.mm.yy")
.Orientation = xlLandscape
.PrintArea = "$A$4:$F$17"
.Zoom = 90
.PrintQuality = 600
End With
.PrintOut Copies:=1, Collate:=True
End With
Application.ScreenUpdating = True
End Sub