[求助]：如何用VBA批量更换打印模型中的打印机名称？

sanjie

我有很多的CAD图纸，用的都是HP LaserJet 8100 Series PCL的打印机，现在打印机换成了HP LaserJet 5100 PCL 6，该如何用VBA批量把D:\cad\下图纸的打印机由HP LaserJet 8100 Series PCL更改为HP LaserJet 5100 PCL 6，我不想手动一个个修改了，请高手解决！

yunzhong80

'指定打印机(需要指明你的打印机名称)
  thisdrawing.ModelSpace.Layout.ConfigName = "HP LaserJet 5100 PCL 6"

sanjie

我可以用以下代码批量打开Excel，但不知该如何批量打开CAD，请明示：
Sub xiugai()
Application.ScreenUpdating = False
  With Application.FileSearch
     .LookIn = "D:\new"
     .FileType = msoFileTypeExcelWorkbooks
     .SearchSubFolders = True
     If .Execute > 0 Then
        For i = 1 To .FoundFiles.Count
          Workbooks.Open Filename:=.FoundFiles(i)
          Worksheets("10KV1").Select
          Range("D65").Value = 0
          Range("D66").Value = 0
          Range("D67").Value = 0
          Range("D78").Value = 0
          Range("D79").Value = 0
          Range("D133").Value = 0
        ActiveWorkbook.Close savechanges:=True
        Next i
     Else
     MsgBox "没有找到任何工作簿文件"
     End If
  End With
Application.ScreenUpdating = True
End Sub