VBA Excel 打印
1. 设置 页边距、打印区域
With .PageSetup
.HeaderMargin = Application.CentimetersToPoints(0.5)
.LeftMargin = Application.CentimetersToPoints(1.5)
.RightMargin = Application.CentimetersToPoints(1)
.TopMargin = Application.CentimetersToPoints(1)
.BottomMargin = Application.CentimetersToPoints(1)
.FooterMargin = Application.CentimetersToPoints(0.5)
.PrintTitleRows = "$1:$3" '要打印的默认页头
.printArea = "A4:M" & l + 1 '打印区域
End With
2. 执行打印
.Sheets("dl_1").PrintOut Copies:=2 '打印(2份)