[教学]：求助，在vb里的打印设置问题

xqyll

请问各位大哥，我用vb写cad打印程序时，老出现以下问题，不知怎么回事：

        If acadApp.ActiveDocument.ActiveSpace = acPaperSpace Then
   acadApp.ActiveDocument.MSpace = True
         End If

acadApp.Application.Preferences.Output.DefaultOutputDevice = "SHARP AR-M160 (EB)"
  
acadApp.ActiveDocument.ActiveLayout.CanonicalMediaName = "A3"

acadApp.ActiveDocument.ModelSpace.Layout.PaperUnits = acMillimeters

acadApp.ActiveDocument.ActiveLayout.SetWindowToPlot CVar(corner1), CVar(corner2)

acadApp.ActiveDocument.ModelSpace.Layout.GetWindowToPlot CVar(corner1), CVar(corner2)

acadApp.ActiveDocument.ModelSpace.Layout.PlotOrigin = CVar(plyuandian)

acadApp.ActiveDocument.ModelSpace.Layout.StandardScale = ac1_2


实时错误‘CanonicalMediaName’的方法‘IacadLayout'失败
或
实时错误‘SetWindowToPlot’的方法‘IacadLayout'失败

不知怎么解决，请帮忙看看，急！谢了

ps122

图纸大小与打印机有关，且有两种方式，Layout.GetCanonicalMediaNames()，Layout.GetLocaleMediaName(mediaNames(i)，有可能相同，也可能不同，所见为后者，负值用前者。自己再试试。

zxli2004

好像还是不行，我也有同样的问题！

总是有：
实时错误‘SetWindowToPlot’的方法‘IacadLayout'失败

xqyll

高手哪里去了，请帮忙看看啊！谢了

zxli2004

我知道了，CAD大观园找到的，我试了，可以用，我的程序已调好了。
With acaddoc.ActiveLayout
        .RefreshPlotDeviceInfo
       '.ConfigName = "HP LaserJet 5100 PCL 6.pc3   \'设置打印机"
        .StyleSheet = "xxx.ctb"   '设置打印样式"
        .CanonicalMediaName = "A3"       '图纸尺寸
        .PaperUnits = acMillimeters   '图纸单位
        'ActiveDocument.Regen acActiveViewport
        '图纸方向
        '反向打印
        .UseStandardScale = True       '\'打印比例 采用标准的1：1
        .StandardScale = ac1_1
        .CenterPlot = True             '居中打印
        .PlotWithLineweights = True
        .PlotWithPlotStyles = True     '打印样式吗
        .SetWindowToPlot LowerLeft, UpperRight
         .PlotType = acWindow
End With

xqyll

我试了，还是不行，运行到
SetWindowToPlot LowerLeft, UpperRight时就提示实时错误‘SetWindowToPlot’的方法‘IacadLayout'失败，望大哥加以指正！谢谢！