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

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

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

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

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

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

next

但是，打印机那边却并不反应，不知是为什么呢？还望大侠帮我一下！
--------------------编程问答-------------------- 这个可不熟,不过楼主怎么不用AUTOLISP呢 --------------------编程问答-------------------- 在objlyr.LayerOn = True 
后加上：ThisDrawing.Regen acActiveViewport

补充：VB ,  VBA