Hallo Leute,
ich möchte die erste Seite im Querformat und alle anderen Seiten im Hochformat drucken.Dafür benutze ich folgendes Makro, Sub Drucken()
With ActiveSheet
.PageSetup.Orientation = xlLandscape
.PrintOut From:=1, To:=1
.PageSetup.Orientation = xlPortrait
.PrintOut From:=2
End With
End Sub
das Problem ist, dass die zweite Seite nicht gedruckt wird.
Wenn ich aber Portrait als erste und Landscape als zweite Seite einsetze funktioniert es.Kann mir jemand weiter helfen ?
Danke schon mal.
Gruß Ingo