W
William G
I have the following Macro to set up a standard page setup for all my
spreadsheets. However, it seems slower than if I were to do it
manually. I have other macros that take just a second or two to
complete. Any thoughts/feedback on this issue? I am using Excel 03.
With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$1"
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftFooter = "&Z&F"
.RightFooter = "&D &T"
.LeftMargin = Application.InchesToPoints(0.5)
.RightMargin = Application.InchesToPoints(0.5)
.TopMargin = Application.InchesToPoints(0.5)
.BottomMargin = Application.InchesToPoints(0.5)
.HeaderMargin = Application.InchesToPoints(0.25)
.FooterMargin = Application.InchesToPoints(0.25)
.FitToPagesWide = 1
.FitToPagesTall = False
End With
End Sub
Thanks,
William
spreadsheets. However, it seems slower than if I were to do it
manually. I have other macros that take just a second or two to
complete. Any thoughts/feedback on this issue? I am using Excel 03.
With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$1"
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftFooter = "&Z&F"
.RightFooter = "&D &T"
.LeftMargin = Application.InchesToPoints(0.5)
.RightMargin = Application.InchesToPoints(0.5)
.TopMargin = Application.InchesToPoints(0.5)
.BottomMargin = Application.InchesToPoints(0.5)
.HeaderMargin = Application.InchesToPoints(0.25)
.FooterMargin = Application.InchesToPoints(0.25)
.FitToPagesWide = 1
.FitToPagesTall = False
End With
End Sub
Thanks,
William