dikey yazdırma

[otelci01]

Merhaba, aşağıdaki makroya sayfayı dikey yazdır diyebilirmiyiz. teşekkürler


Sub mesai()
If MsgBox("Mesai Listesi Yazdırılacak, Emin misiniz?", vbYesNo) = vbYes Then
For x = 10 To 1 Step -1
If Cells(x, "k") = 0 Then Rows(x).EntireRow.Hidden = True
Next
Columns.Hidden = False
Columns("c:j").Hidden = True
ActiveSheet.PrintOut
Columns.Hidden = False
Rows.Hidden = False
End If
End Sub

 

[hamitcan]

Kodunuza aşağıdaki satırı ekleyin.
ActiveSheet.PageSetup.Orientation = xlPortrait

 

[otelci01]

Merhaba, Teşekkürler döküm aldıktan sonra eski haline getirecek kod u da yazarmısınız çok teşekkürler ilgin için. tekrar yatay hale gelecek

 

[hamitcan]

ActiveSheet.PageSetup.Orientation = xllandscape olmalı.

 

[otelci01]

Buldum teşekkürler , xlLandscape