Question

vba关于cad打印的一个问题

我现在用VBA做了一个自动打印程序，但是代码执行到：ThisDrawing.Plot.PlotToDevice
这句语句之后，cad会自动弹出来一个保存窗口，需要人工指定保存路径、保存pdf文件名（我打印机设置的是Andoe PDF），然后点保存就会保存到指定目录下面去一个pdf文件，同时也会弹出一个pdf文件显示刚才打印的图像，我现在一个drawing下很多张图纸需要打印，我本意是自动打印，可是现在每张图纸我都需要对这个弹出来的打印保存窗口进行手动操作很麻烦，我想用程序自动给这个窗口传参数，自动保存到我想保存的地方及我想要的文件名。希望高手能帮助我实现这一功能为谢！
附注：vba是可以获取CAD弹出窗口并传递参数的，可是我不会！再次希望高手赐教为谢！
是不是 不同的pdf打印机有不同的设置呢 ？

Answer 1

设置一下Adobe PDF打印机就可以了

这样会根据DWG文件名自动命名，如果一个DWG文件要只打印一次，这样就OK了，

如果一个文件要打印出多张图,那就有问题了，建议用PdfFactory

Answer 2

设置一下Adobe PDF打印机就可以了
在Adobe PDF 打印机内将查看Adobe PDF 结果选项的对勾去掉
Adobe PDF输出文件夹，默认为提示Adobe PDF文件名，你可以指定输出目录，打印后的文件会自动保存到输出目录
设置完成后需要重新启动