sayfa dikey iken makro ile yatay olarak ayarlayabilirmiyiz?

[olymposss]

sayın hocalarım ve arkadaşlar

bir excel sayfası normal olarak dikey olarak ayarlı. ben makro ile bir çalışma sayfası yaratıyorum.bu sayfanın oluşturulurken sayfa yazıcı ayarlarının sayfayı yatay olarak yazdırmasını istiyorum. ve her oluşturduğum sayfa için bu ayarı yapmam gerekiyor. ben çok uzun makrolar buldum mesela;
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.75)
.RightMargin = Application.InchesToPoints(0.75)
.TopMargin = Application.InchesToPoints(1)
.BottomMargin = Application.InchesToPoints(1)
.HeaderMargin = Application.InchesToPoints(0.5)
.FooterMargin = Application.InchesToPoints(0.5)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = Array(120, 144)
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 100
.PrintErrors = xlPrintErrorsDisplayed
End With
bu makroları yeni makro kaydet ile buldum. ama bazı yerlerde hata veriyor.
açıkçası ben daha kısa ve kolay bir yöntem arıyorum.
yardımcı olacak arkadaşlara şimdiden teşekkür ederim.
saygılar:yardim:

 

[Levent Menteşoğlu]

Aşağıdaki satır yeterlidir.

ActiveSheet.PageSetup.Orientation = xlLandscape