Sayfaya Sığdır Makrosu, sadece genişlik için

[Filose]

Merhaba,

Sayfa uzunluğu için değil, sadece sayfa genişliği için "Sığdır" makrosu yapılabilir mi? Bunu Sayfa Düzeni-Genişlik-1 Sayfa seçtiğimde çözüm oluyor.

Ancak makro ile daha kullanışlı olurum sanırım. Yardımcı olabilecek arkadaşlara şimdiden teşekkür ederim.

 

[Murat OSMA]

Yaptığınız işlemi bu şekilde koda dönüştürebilirsiniz.

[FONT="Trebuchet MS"][SIZE="2"]Sub Emre()
    ActiveSheet.PageSetup.PrintArea = ""
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .FitToPagesWide = 1
        .FitToPagesTall = 0
    End With
    Application.PrintCommunication = True
End Sub[/SIZE][/FONT]

 

[Filose]

Murat Bey,
Çok teşekkür ederim ellerinize sağlık. Tam istediğim gibi oldu.

Sağlık ve esenlikle kalın.

 

[Murat OSMA]

Rica ederim, iyi akşamlar.​

 

[Filose]

Murat Bey merhaba,

Bilgisayara ağına bağlı 4-5 yazıcı var. Bunlardan biri zaten varsayılan.
Ben ise excelde hızlı erişim çubuğuna yazıcıları eklemek istiyorum. Tıpkı varsayılanı seçtiğim gibi tek tıklamayla istediğim yazıcıya makro ile sayfayı yazdırabilir miyim?

Tek tıklama ile hızlı erişim çubuğuna sadece varsayılan seçilebiliyor diye biliyorum. Yada YAZDIR kısa yolunu ekleyip yazıcı seçilebiliyor.

Yada MAKRO yazmadan her yazıcı Hızlı Erişim çubuğuna eklenebilir mi?

Teşekkür eder saygılar sunarım
Hoşçakalın

 

[parametre]

ilginizi cekebilir

 

[Filose]

Sayın Parametre Merhaba,

Şimdi inceliyorum. Bilginize ve ilginize teşekkür eder sağlıkla esen kalın.

İyi çalışmalar dilerim.

 

[parametre]

Rica ederim