A3 ve A4 kağıt boyutunu ayarlayan makro yapılabilir mi?

[microaim]

değerli arkadaşlar;

aynı tablonun A3 ve A4 kağıt boyutunda çıktılarını almam gerekiyor.iki tane buton koyup bunlara A3 ve A4 deyip, A3 e tıklandığında A3, A4 e tıklandığında A4 e göre yazdırma ayarlarını yapan birşeyler yapılabilir mi?

 

[TAŞELİ70]

Sub A3()
With ActiveSheet.PageSetup
.PaperSize = xlPaperA3
End With
End Sub

Sub A4()
With ActiveSheet.PageSetup
.PaperSize = xlPaperA4
End With
End Sub

sanırım işinizi görür. Ben denedim oldu.

 

[microaim]

çok teşekkür ederim ellerinize sağlık.