Yazdır makrosunda, Dikey ayarlama

[kombo]

Herkese iyi akşamlar
Aşağıdaki makro ile sayfa yazdırıyorum. Sayfayı dikey olarak makronun içinde nasıl ayarlayabilirim? Çünkü aynı çalışma sayfasında yaz2 makrosu yatay yazdıracak.

Sub Yaz1()
If MsgBox("SIRALAMA İŞLEMİNİ YAPTINIZ MI?", vbYesNo, "") = vbNo Then Exit Sub
ActiveSheet.Unprotect
ActiveSheet.PageSetup.PrintTitleRows = "$1:$6"
ActiveSheet.PageSetup.PrintArea = "$H$7:$N$65500"
ActiveSheet.PrintOut From:=1, To:=[G1].Value, Copies:=1, preview:=False, Collate:=True
ActiveSheet.Protect
End Sub

 

[Levent Menteşoğlu]

Aşağıdaki satırı ilave edin.

ActiveSheet.PageSetup.Orientation = xlPortrait (yatay için xlLandscape)

 

[kombo]

Sn leventm
Teşekkür ederim.

 

[kombo]

Sorunu devamı olarak......
Her makroda satır arasını (piksel olarak) ayarlayabilirmiyiz?
şöyle bir satır ekledim ama olmadı

ActiveSheet.PageSetup.Selection.RowHeight = 9.75

 

[Seyit Tiken]

Bu kodu bir SpinButton'a bağlayın.
Örnek :
Private Sub SpinButton1_Change()
Range("a5:a20").RowHeight = SpinButton1.Value + 10#
End Sub

 

[kombo]

sn Seyit Tiken
Spin Buton nedir? Nasıl yapacağım? :?

 

[Seyit Tiken]

UserForm'un ToolBox'un bulunan üst ve alt tırnağı olan buton. Satırların pikselini daraltır ve genişletir. İşinize yarayacaksa kendinize uyarlayınız.

 

[kombo]

sn Seyit Tiken
İlginiz için teşekkür ederim. Ama bu sistemi tutmadım. Sayfa butondan geçilmez oldu Makronun içinde çözme yollarını deneyeceğim.
Tekrar teşekkür ederim.

 

[kombo]

Sn arkadaşlar, bu konuyla ilgili fikri olan yok mu.......

 

[kombo]

Tamam arkadaşlar buldum ve sorun çözüldü .