Sayfa kenar boşlukları kodlarını hızlandırmak

[EKREM1661]

Saygıdeğer Arkadaşlar..! (selamlar)

Aşağıda kaydet komutuyla oluşturulmuş kodları, bir sayfadan yerine göre farkı ebat çıktıları almak için kullanıyorum.. Ancak ağır çaışıyor ve bir müddet bekletiyor.. Bunu hızlandırmanın bir yoluı var mı.? veya alternatif öneri..

With ActiveSheet.PageSetup
.PaperSize = xlPaperA4
.LeftMargin = Application.InchesToPoints(0.94) 'solkenar 2.40
.RightMargin = Application.InchesToPoints(0.54) 'sağkenar 1.40
.TopMargin = Application.InchesToPoints(0.83) 'üstkenar 2.20
.BottomMargin = Application.InchesToPoints(0.21) 'altkenar 0.50
.HeaderMargin = Application.InchesToPoints(0.21) 'üstbilgi 0.50
.FooterMargin = Application.InchesToPoints(0.98) 'altbilgi 2.50
.CenterHorizontally = False
End With

Bu konuyu çözüme ulaştırırsak çok makbule geçecek..

 

[Korhan Ayhan]

Selamlar,

Kodları hızlandırmak için genellikle ekran hareketlerini pasif yapan aşağıdaki komut kullanılmaktadır.

Option Explicit
 
Sub HIZLI_MAKRO()
[COLOR=red]   Application.ScreenUpdating = False[/COLOR]
        'Kodlarınız...
[COLOR=red]   Application.ScreenUpdating = True[/COLOR]
End Sub

 

[EKREM1661]

Korhan bey..! pek bir değişiklik olmadı, fakat şimdilik böyle devam ederiz..