Sayfa Ölçeğini Makro ile Düzenlemek

[Filose]

Merhaba, Ekde bulunan dosya örneğinden sürekli internetten indiriyorum ve çıktısını alıyorum. Ancak gelen sayfa görüleceği gibi sayfa ön izlemede yatay olarak A4'e sığmıyor. Her gelen sayfayı ön izlemede sığdır veya ölçeklendirip çıktı alıyorum.

Ricam şu; Makro ile (daha sonra eklenti yapmak istiyorum) sayfa ölçeğini ben istediğim oranda örn. % 80 yapabilirmiyim? Kısaca butona tıkladığımda SAYFA YATAY olarak % 80 ölçeği olsun. Veya istenilen oranda.

Bununla ilgili bir konu bulamadım. Önceden de bu konu ile ilgili yazmıştım ama bir sonuç çıkaramadım. Herkese saygı ve esenlikler dilerim

 

[Emir Hüseyin Çoban]

. . .

Buna benzer bir çalışmayı bende kullanıyorum. Ancak ihtiyaçların sonu yok gibi.
O yüzden yazdırma işleminde ihtiyacınız olabilecek işlemleri tespit edip, aşağıdaki gibi bir userform hazırlayın. Ona göre kodlama yapalım.

. . .

 

[Filose]

Yazdırma alanı seçmek

Merhaba Hüseyin Bey, Use Form hazırlayarak ekte dosyayı ilave ettim. Örnek verdiğiniz gibi olabilir. Ancak yazdırma alanı A1: Z49 aralığı standart da olabilir.
Bunu eklenti yapmak istiyorum.

Şimdiden teşekkür eder saygılar sunarım.

 

[Emir Hüseyin Çoban]

. . .

Ekte userform yok. Şu kodları deneyin.

PERSONAL kitabı oluşturarak tüm tablolarda çalıştırabilirsiniz.

Sub kod()
    With ActiveSheet.PageSetup
        .PrintArea = "$A$1:$Z$49"
        .Orientation = xlLandscape
        .Zoom = False
    End With
    ActiveSheet.PrintOut
End Sub

. . .

 

[Filose]

Hüseyin Bey Merhaba,
Kodu makro olarak PERSONAL.XLSB kayıt ettim. Yeni excel dosyası açtığımda makroları göster içinde mevcut.

Yaptığım kısa yol CTRL+m çalıştırdığımda sayfa ayarında bordro halen eskisi gibi A4 sayfasını taşıyor.Yani SIĞDIR yapmıyor.

 

[Filose]

Hüseyin Tamam, evde çalıştırdığım bilgisayarda yazıcı kurulmadığında sorun oldu. Ellerinize sağlık çok teşekkür ederim.

İyi akşamlar

Hoşçakalın