Sayfa kenar boşluklarını ayarlamak

[Mesafe]

Makro yardımyla çalışma kitabımdaki tüm sayfaların sağ ve sol kenar boşluklarını maximum açıklıkta ayarlayacak bir kod yazılabilir mi ?

 

[Seyit Tiken]

Bu şekilde deneyebilirsiniz. Değerlere Hücre Adreslerini de atayabilirsiniz.

Application.ScreenUpdating = False
For s = 1 To Sheets.Count
Sheets(s).PageSetup.LeftMargin = 20
Sheets(s).PageSetup.RightMargin = 20
Sheets(s).PageSetup.TopMargin = 20
Sheets(s).PageSetup.BottomMargin = 20
Next
Application.ScreenUpdating = True

 

[Mesafe]

Hocam çok teşekkür ederim. Elinize emeğinize sağlık