不同图层的开关对连续打印无效，恳请各位大大帮忙。
我已经将Backgroundplot变量设为0。源程序如下：Private Sub CommandButton1_Click()
Err.Clear
On Error Resume Next
Dim objlayer, shutdownobjlayer, layerObj As AcadLayer
Dim layername, shutdownlayername, a As String
For i = 0 To Listlayer2.ListCount - 1' 把list2中的层都关掉
layername = Listlayer2.List(i)
'Set objlayer = ThisDrawing.Layers.Item(layername)
For j = 0 To Listlayer2.ListCount - 1
shutdownlayername = Listlayer2.List(j)
Set shutdownobjlayer = ThisDrawing.Layers.Item(shutdownlayername)
shutdownobjlayer.LayerOn = False
If shutdownlayername = layername Then
shutdownobjlayer.LayerOn = True '把要打印的层打开
a = layername
End If
Next j
ThisDrawing.Application.Documents.ModelSpace.PlotType = acWindow
Set layerObj = ThisDrawing.Layers.Item(a)
ThisDrawing.ActiveLayer = layerObj
ThisDrawing.Plot.PlotToDevice '打印
If MsgBox("现在正在打印的图层是" + a _
+ ",先不要按确定,等打完了再按." + "如果发现打印格式不对,就按取消", _
vbOKCancel + vbInformation) = vbCancel Then Exit For
Next i
End Sub
恳请大大蒙帮忙。
问题解决了，加一个ｒｅｇｅｎ的语句就行了。
页:
[1]