V příkladě názorně ukazuji nastavení levého a pravého okraje v aktivním listu. Ostatní okraje si případně logicky domyslíš ;-)...
P.
Př.:
With ActiveSheet.PageSetup
.LeftMargin = Application.CentimetersToPoints(1)
.RightMargin = Application.CentimetersToPoints(1)
End Withcitovat
P.
Př.:
With ActiveSheet.PageSetup
.LeftMargin = Application.CentimetersToPoints(1)
.RightMargin = Application.CentimetersToPoints(1)
End Withcitovat