With acadDoc.ModelSpace.Layout '设置打印机和纸张尺寸 .ConfigName = PrintDriver .CanonicalMediaName = PaperSize '打印范围 .SetWindowToPlot pLowLeft, pUpRight .PlotType = acWindow '这里出错,前面都运行正常 '打印样式和单位 .PlotWithPlotStyles = True .StyleSheet = "acad.ctb" .PaperUnits = acMillimeters '按图纸空间缩放并居中打印 .StandardScale = acScaleToFit .CenterPlot = True end with 请高手帮忙啊,感谢! |