CAD-VBA批量打印程序.pdfVIP

CAD/VBA批量打印

打印图纸，彻头彻尾的体力活。最多一次打了600多张图，打印机都因体力不支中

途歇息了几次，果不是用程序批打，估计我也得累个半死。

下面贴出打印过程的代码，加个for循环就可以批打了。简单说明一下打印函数

PrinterName-打印机名称

Styles-样式表名称

MediaName-纸张大小

Copies-打印份数

AutoMedia-自动纸张开关

AutoRotate-自动旋转，纵向/横向

AutoClose-打印完毕关闭文档

AutoFrame-自动判断图框，主要针对图框为块的情形

打印过程并没有提供全部的AUOCAD打印选项，因为我普通用不到，比打印偏

移、打印到文件我从来不用的，果需要可以添加进去。

程序会根据指定块名查找图框，也可以根据块的纵横比例自动判断是否为图框，然