Hallo zusammen,

ich möchte den ausgewählten Teil eines Arbeitsblattes drucken.
Standardmäßig wird das gesamte Blatt angezeigt und ich muß bei Einstellungen die Option Auswahl wählen.
Wie muss ich es anstellen, dass diese Einstellung per VBA erfolgt?

Sub Kalenderdruck_Rückserie_Querformat_Seite1()
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Dim Bereich As Range
Set Bereich = Range("Druck_Seite3")
Bereich.Select
With ActiveSheet.PageSetup
.LeftMargin = Application.InchesToPoints(0)
.RightMargin = Application.InchesToPoints(0)
.TopMargin = Application.InchesToPoints(0)
.BottomMargin = Application.InchesToPoints(0)
.HeaderMargin = Application.InchesToPoints(0.31496062992126)
.FooterMargin = Application.InchesToPoints(0.31496062992126)
.Zoom = False
.FitToPagesTall = 1
.FitToPagesWide = 1
.CenterFooter = ""
.Orientation = xlLandscape
' .Orientation = xlPortrait
End With
Application.GoTo Reference:="Druck_Seite3"
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,1,,,TRUE,,FALSE)"
Range("A1").Select
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

Gruß
Siegfried