Alt alta iki sayfadan birini yatay diğerini dikey yapma

[İMRANCUHADAR]

İyi çalışmalar. Elimde alt alta iki sayfa var. Ve bu iki sayfanın üstteki yatay olarak yazılmak zorunda. Alttaki ise dikey şekilde. Arkalı önlü yazma özelliği olan bir yazıcıdan çıktı alacağım. Ancak üstteki sayfayı yatay yaptığımda alttaki sayfa da otomatik yatay oluyor. Bunun bir çözüm yolu var mıdır yoksa yanlamasına mı yazmak zorunda kalacağım.

 

[Murat OSMA]

İlk sayfayı Yatay, ikinci sayfayı Dikey yazdırmak için bu kodları kullanabilirsiniz;

[FONT="Trebuchet MS"]Sub Emre()
    
    ActiveSheet.PageSetup.Orientation = xlLandscape
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, _
    Collate:=True, IgnorePrintAreas:=False
    
    ActiveSheet.PageSetup.Orientation = xlPortrait
    ActiveWindow.SelectedSheets.PrintOut From:=2, To:=2, Copies:=1, _
    Collate:=True, IgnorePrintAreas:=False
    
End Sub[/FONT]