[求助]关于cad打印二次开发方面的一个菜鸟问题

yudaifeng

各位大侠好：我是一个cad二次开发初学者，现在遇到一个问题，希望各位大侠不吝赐教！

我想把图上的各个图层分别打印出来，思路是想通过控制图层的开关来实现打印，因此写了下面的简单命令：

执行命令之前，我首先把写代码把所有的图层关闭，这个没有问题，然后执行如下代码：

Dim objlyr As AcadLayer 
For Each objlyr In ThisDrawing.Application.ActiveDocument.Layers

objlyr.LayerOn = True
ThisDrawing.Plot.PlotToDevice （我之所以想直接执行打印命令，是希望能够直接按照前次的打印设置执行打印）
objlyr.LayerOn = False

next

但是，打印机那边却并不反应，不知是为什么呢？还望大侠帮我一下！

wuyunpeng888

应该用这个

objlyr.Plottable = False

yudaifeng

ThisDrawing.Plot.PlotToDevice

是不是无法直接执行打印？

怎么样能够执行前次打印的默认设置进行打印呢？