Mega Code Archive

 

Categories / VisualBasic Script / Application

 

Application InchesToPoints

Sub Macro1_Version2()     With ActiveSheet.PageSetup         .LeftMargin = Application.InchesToPoints(1.5)         .RightMargin = Application.InchesToPoints(1.5)         .TopMargin = Application.InchesToPoints(1.5)         .BottomMargin = Application.InchesToPoints(1.5)         .HeaderMargin = Application.InchesToPoints(1)         .FooterMargin = Application.InchesToPoints(1)     End With End Sub