为什么打印一页就出错？

dnbcgrass

各位高手，以下程序进行打印预览没有问题，而进行打印时却只能打印一页就出错，这是为什么？
命令: a3dy ; 错误: Automation 错误。未提供说明。

2. (defun c:A3DY()
   
3.      (vl-load-com)
   
4.      (setq A3tz '(((0 0) (420 297)) ((480 0) (900 297)) ((960 0) (1380 297))))
   
5.      (setq Doc (vla-get-ActiveDocument (vlax-get-acad-object)))
   
6.      (setq Layout (vla-get-ActiveLayout Doc))
   
7.      (setq Plot (vla-get-Plot Doc))
   
8. 
   
9.      (foreach pts A3tz
   
10.          (vla-RefreshPlotDeviceInfo Layout)
    
11.          (setq p1 (car pts)  p2(cadr pts))
    
12.          (vlax-invoke Layout "SetWindowToPlot" p1 p2)         ;打印范围
    
13.          (vlax-put Layout "ConfigName" "HP LJ 5200LX PCL6")   ;打印机
    
14.   (vlax-put Layout "StyleSheet" "monochrome.ctb")      ;打印样式表("monochrome.ctb")
    
15.   (vlax-put Layout "CanonicalMediaName" "A3")          ;图纸尺寸：A3
    
16.   (vlax-put Layout "PlotRotation" 1)                   ;图形方向：横向
    
17.   (vlax-put Layout "StandardScale" 1)                  ;缩放方式：自定义比例
    
18.   (vlax-put Layout "PaperUnits" 1)                     ;单位：1-毫米
    
19.   (vlax-put Layout "PlotType" 4)                       ;打印范围：4-窗口
    
20.   (vla-SetCustomScale Layout 1 1)                      ;打印比例
    
21.       
    
22.          ;(vla-DisplayPlotPreview Plot acFullPreview) ;打印预览
    
23.   (vla-plotToDevice Plot)                     ;打印
    
24.      )
    
25.      (vlax-release-object Plot)
    
26.      (vlax-release-object Layout)
    
27.      (vlax-release-object Doc)
    
28.      (princ)
    
29. )
    

(defun c:A3DY()<br />      (vl-load-com)<br />      (setq A3tz '(((0 0) (420 297)) ((480 0) (900 297)) ((960 0) (1380 297))))<br />      (setq Doc (vla-get-ActiveDocument (vlax-get-acad-object)))<br />      (setq Layout (vla-get-ActiveLayout Doc))<br />      (setq Plot (vla-get-Plot Doc))<br /> <br />      (foreach pts A3tz<br />          (vla-RefreshPlotDeviceInfo Layout)<br />          (setq p1 (car pts)  p2(cadr pts))<br />          (vlax-invoke Layout "SetWindowToPlot" p1 p2)         ;打印范围<br />          (vlax-put Layout "ConfigName" "HP LJ 5200LX PCL6")   ;打印机<br />   (vlax-put Layout "StyleSheet" "monochrome.ctb")      ;打印样式表("monochrome.ctb")<br />   (vlax-put Layout "CanonicalMediaName" "A3")          ;图纸尺寸：A3<br />   (vlax-put Layout "PlotRotation" 1)                   ;图形方向：横向<br />   (vlax-put Layout "StandardScale" 1)                  ;缩放方式：自定义比例<br />   (vlax-put Layout "PaperUnits" 1)                     ;单位：1-毫米<br />   (vlax-put Layout "PlotType" 4)                       ;打印范围：4-窗口<br />   (vla-SetCustomScale Layout 1 1)                      ;打印比例<br />        <br />          ;(vla-DisplayPlotPreview Plot acFullPreview) ;打印预览<br />   (vla-plotToDevice Plot)                     ;打印<br />      )<br />      (vlax-release-object Plot)<br />      (vlax-release-object Layout)<br />      (vlax-release-object Doc)<br />      (princ)<br /> )<br />

fscrd2015

我也想知道这是为什么，请大家说说

fscrd2015

我终于知道了，只要把系统变量， backgroundplot 设置为0 就OK了，CAD默认为2. 所以要批量打印一定要把这个变量设为0.我在CAD2007和CAD2014 CAD2015上已试验OK，只要设为0就可以，**值都不行！

aeo

(foreach pts A3tz
         (vla-RefreshPlotDeviceInfo .....
这是个问题:dizzy::dizzy::dizzy::dizzy::dizzy::dizzy::dizzy: Refresh :@

aeo

(foreach pts A3tz
         (vla-RefreshPlotDeviceInfo .....
这是个问题:dizzy::dizzy::dizzy::dizzy::dizzy::dizzy::dizzy: Refresh :@

dnbcgrass

谢谢fscrd2015及aeo，问题解决了！:lol:lol:lol