Yazdır makrosunda, Dikey ayarlama

Katılım
17 Şubat 2006
Mesajlar
981
Excel Vers. ve Dili
M.Office Excel 2003 Tr.
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

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Aşağıdaki satırı ilave edin.

ActiveSheet.PageSetup.Orientation = xlPortrait (yatay için xlLandscape)
 
Katılım
17 Şubat 2006
Mesajlar
981
Excel Vers. ve Dili
M.Office Excel 2003 Tr.
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

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
Bu kodu bir SpinButton'a bağlayın.
Örnek :
Private Sub SpinButton1_Change()
Range("a5:a20").RowHeight = SpinButton1.Value + 10#
End Sub
 
Katılım
17 Şubat 2006
Mesajlar
981
Excel Vers. ve Dili
M.Office Excel 2003 Tr.
sn Seyit Tiken
Spin Buton nedir? :oops: Nasıl yapacağım? :?
 

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
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.
 
Katılım
17 Şubat 2006
Mesajlar
981
Excel Vers. ve Dili
M.Office Excel 2003 Tr.
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.
 
Katılım
17 Şubat 2006
Mesajlar
981
Excel Vers. ve Dili
M.Office Excel 2003 Tr.
Sn arkadaşlar, bu konuyla ilgili fikri olan yok mu.......
 
Katılım
17 Şubat 2006
Mesajlar
981
Excel Vers. ve Dili
M.Office Excel 2003 Tr.
Tamam arkadaşlar buldum ve sorun çözüldü .
 
Üst