With Ws.PageSetup
.PrintArea=PrintArea '打印区域
.BottomMargin=0
.TopMargin=TopMargin '上边距
.LeftMargin=LeftMargin '左边距
.RightMargin=0
.headermargin=0
.footermargin=0
.zoom=False '缩放打印
.FitToPagesWide=1
.papersize =papersize 这句话是指定papersize,他会去默认打印机找存不存在这个papersize,就会报错,但是我可能不是在默认打印机去添加,能不能先指定打印机,再设定纸张大小
End With
wb.saved = True '保存文件
'Ws.PrintOut(Copies:=PrinterNum,ActivePrinter:=printer) 指定打印机