With Tables("生产计划").PrintInfo
.PageHeader = "鸿力电缆有限公司生产计划||" '左
‘.PageHeader = "|鸿力电缆有限公司生产计划|" '中
’.PageHeader = "||鸿力电缆有限公司生产计划" '右
.PageFooter = "第[PageNo]页,共[PageCount]页" '页脚
.PaperKind = 9 '纸张类型设为自定义 'A4
.LeftMargin = 15 '左边距
.RightMargin = 5 '右边距
.TopMargin = 10 '上边距
.BottomMargin = 10 '上边距
End With