有关ConfigName的设置问题大家出出主意
我在二次开发栏目中提供了以下文章：自动设置图形文件的打印机名称方便打印
http://www.mjtd.com/a2/list.asp?id=350
但在实际使用时当第一次运行到以下红色部分时出错
If PrintName <> "" And ThisDrawing.ActiveLayout.ConfigName <> PrintName Then
ThisDrawing.ActiveLayout.ConfigName = PrintName
End If
也就是当第一次进行页面设置或打印时，不能更改ConfigName,而且出错后取消进入了页面设置或打印对话框后，如果按了取消，再进行页面设置或打印时还会继续出错，如果进入页面设置或打印对话框后，按的是确定，再进行页面设置或打印时就不会出错。
大家帮助分析一下原因，为什么会这样。
打到解决方法了
在ThisDrawing.ActiveLayout.ConfigName = PrintName前增加下面语句：
ThisDrawing.ActiveLayout.RefreshPlotDeviceInfo
就解决了问题，看来是应该对先对打印设置信息进行刷新后才能正常。
页:
[1]