A3 formatında çıktı nasıl alabilirim.

[yesilcan]

değerli arkadaşlar hepinizin öncelikle geçmiş bayramını kutluyorum.
soruma gelince ; excel'de prınter properties kısmından kağıt boyutunu A3 olarak ayarladığımda A3 olarak çıktı alabiliyorum,

Fakat yaptığı dosyayı bu ayarı değiştirmeyi bilmeyen arkadaşlarımında kullanması için bir makro hazırlayarak yazdır tuşuna bastıklarında otomatik olarak kağıt botunu A3 formatına geçip,yazdırma işlemi bittikten sonra da tekrar A4 boyutuna geçsin istiyorum.dosyamı eklemedim.çünki dosyanın herhangi bir özelliği yok.basit bir excel sayfası.sadece bu ama için kullanılacak.Form içinde yaptığım araştırmalarımda buna benzer bir örnek bulamadım.yardımlarınız için şimdiden sonzu teşekkür ediyor,saygılar sunuyorum.

 

[Orion1]

Sub A3_yazdir()
With ActiveSheet.PageSetup
    .PaperSize = xlPaperA3
    .PrintArea = "A1:J20"
    ActiveSheet.PrintPreview
    .PaperSize = xlPaperA4
    .PrintArea = ""
End With
End Sub

 

[yesilcan]

EVREN Hocam ilgi ve alakanız için çok teşekkür ederim.
iyi çalışmalar

 

[Orion1]

EVREN Hocam ilgi ve alakanız için çok teşekkür ederim.
iyi çalışmalar

Rica ederim.
İyi çalışmalar.