Vba kod yardımı

[Mehmet Sait]

Merhaba,

Ekli kodda seçili kısmı yatay olarak yazdırmak için ne yapmam gerek.

ActiveSheet.PageSetup.PrintArea = "$B$7:$L$44"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False

Yardımlarınız için teşekkür ederim.

 

[halit3]

bunu bir dene

ActiveSheet.PageSetup.Orientation = xlLandscape
 ActiveSheet.PageSetup.PrintArea = "$B$7:$L$44"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False

 

[Mehmet Sait]

Teşekkür ederim Halit bey.

 

[halit3]

Teşekkür ederim Halit bey.

Teşekkürler iyi çalışmalar