Sub Macro1()
'
' Macro1 Macro
' 宏由 hjs 录制,时间: 2023/02/11
'
'
ActiveSheet.PageSetup.Orientation = xlLandscape '页面横向
ActiveSheet.PageSetup.Zoom = 90 '打印比例
ActiveSheet.PageSetup.CenterFooter = "&A【02文化发展集团】" '页脚
ActiveSheet.PageSetup.TopMargin = 11.338583
ActiveSheet.PageSetup.BottomMargin = 37.338583
ActiveSheet.PageSetup.HeaderMargin = 17.007874
ActiveSheet.PageSetup.FooterMargin = 14.173228
ActiveSheet.Range("c4:c50").HorizontalAlignment = xlHAlignLeft 'C列居左对齐
ActiveSheet.Rows("5:50").RowHeight = 16 '行高16
ActiveSheet.PageSetup.BlackAndWhite = True '设置单色打印
End Sub
VBA常用页面设置代码
于 2023-02-11 22:34:22 首次发布