有关ConfigName的设置问题大家出出主意

mccad

我在二次开发栏目中提供了以下文章：
自动设置图形文件的打印机名称方便打印
http://www.mjtd.com/a2/list.asp?id=350
但在实际使用时当第一次运行到以下红色部分时出错
    If PrintName <> "" And ThisDrawing.ActiveLayout.ConfigName <> PrintName Then
        ThisDrawing.ActiveLayout.ConfigName = PrintName
    End If
也就是当第一次进行页面设置或打印时，不能更改ConfigName,而且出错后取消进入了页面设置或打印对话框后，如果按了取消，再进行页面设置或打印时还会继续出错，如果进入页面设置或打印对话框后，按的是确定，再进行页面设置或打印时就不会出错。

大家帮助分析一下原因，为什么会这样。

mccad

在ThisDrawing.ActiveLayout.ConfigName = PrintName
前增加下面语句：
        ThisDrawing.ActiveLayout.RefreshPlotDeviceInfo
就解决了问题，看来是应该对先对打印设置信息进行刷新后才能正常。