不同图层的开关对连续打印无效，恳请各位大大帮忙。

yaoyu88

我已经将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

恳请大大蒙帮忙。

yaoyu88

问题解决了，加一个ｒｅｇｅｎ的语句就行了。