EXCEL中让同一文件夹下的excel文件运行同一个宏
如何让EXCEL中同一文件夹下的excel文件运行同一个宏,下面是我录制的宏:Sub打印设置()''打印设置Macro'宏由Administrator录制,时间:2015...
如何让EXCEL中 同一文件夹下的excel文件 运行同一个宏,下面是我录制的宏:
Sub 打印设置()
'
' 打印设置 Macro
' 宏由 Administrator 录制,时间: 2015/12/04
'
'
ActiveSheet.PageSetup.Orientation = xlLandscape
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.Orientation = xlLandscape
.FitToPagesWide = 1
.FitToPagesTall = 1
.FirstPageNumber = True
.LeftMargin = 54.141732
.RightMargin = 54.141732
.TopMargin = 72
.BottomMargin = 72
.HeaderMargin = 36.566929
.FooterMargin = 36.566929
.CenterHorizontally = False
.CenterVertically = False
.PrintErrors = xlPrintErrorsDisplayed
.Order = xlDownThenOver
.PrintGridlines = False
.PrintHeadings = False
.BlackAndWhite = False
.PrintQuality = 600
.PrintArea = ""
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
End Sub 展开
Sub 打印设置()
'
' 打印设置 Macro
' 宏由 Administrator 录制,时间: 2015/12/04
'
'
ActiveSheet.PageSetup.Orientation = xlLandscape
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.Orientation = xlLandscape
.FitToPagesWide = 1
.FitToPagesTall = 1
.FirstPageNumber = True
.LeftMargin = 54.141732
.RightMargin = 54.141732
.TopMargin = 72
.BottomMargin = 72
.HeaderMargin = 36.566929
.FooterMargin = 36.566929
.CenterHorizontally = False
.CenterVertically = False
.PrintErrors = xlPrintErrorsDisplayed
.Order = xlDownThenOver
.PrintGridlines = False
.PrintHeadings = False
.BlackAndWhite = False
.PrintQuality = 600
.PrintArea = ""
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
End Sub 展开
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询