VBA-添加打印页面设置

Sub Add_Print_Info()
'Add print information
'Header-->Path+File
'Footer-->Page+Total_Page;Date+Time
'
'Application.PrintCommunication = False
With ActiveSheet.PageSetup         '设置页面
.LeftHeader = "&Z &F"          '页眉左:增加文件地址
.CenterHeader = ""             '页眉中:
.RightHeader = ""              '页眉右:
.LeftFooter = "&P/&N"          '页脚左:页数/总页数
.CenterFooter = ""             '页脚中:
.RightFooter = "&D &T"         '页脚右:日期/时间
.PaperSize = xlPaperA4         '纸张:A4
.BlackAndWhite = True          '黑白打印
.Zoom = False
.FitToPagesWide = 1            '适应为1页
.FitToPagesTall = 1            '适应为1页
End With
'Application.PrintCommunication = True
End Sub