请高手指点 打印问题

lhkz

在程序中，通过如下程序短进行打印：
Public Function myPrint()

If linghu.ActiveDocument.ActiveSpace = acPaperSpace Then

   linghu.ActiveDocument.MSpace = True
   
   linghu.ActiveDocument.ActiveSpace = acModelSpace
   
End If

  Dim myConfig As String
  myConfig = "\\Printsever\hp laserJet 1000"

  linghu.ActiveDocument.ModelSpace.Layout.PlotType = acExtents
  linghu.ActiveDocument.ModelSpace.Layout.StandardScale = acScaleToFit
  
  linghu.ActiveDocument.ModelSpace.Layout.ConfigName = myConfig
  
  linghu.ActiveDocument.Plot.NumberOfCopies = 1
  
  linghu.ActiveDocument.Plot.PlotToDevice

End Function

本程序的缺点很明显：
   myConfig = "\\Printsever\hp laserJet 1000"
语句把打印机的路径与名称都固化在程序里了，换句话说，把本程序编译后，拿到别的机器上，肯定是不能正确返回打印机的。请高手们给个指点。不胜感激。
^_^
谢谢了

mccad

这就很有难度了，一个电脑可能配置有几个打印机，而且本身AutoCAD也配好有几个为了输出图片用的虚拟打印机，所以让程序自己选择哪个是个问题。
你可以参照二次开发栏目中的“使用默认打印机打印”的文章，保存上次使用的打印机来打印，而该打印机名称保存到注册表中，这样你就可以正确的打印了，不管在哪部机器上。

jsyang_ren

可以用PC2