批量打印问题

oyxx1023

2. [code]
   
3. (repeat page-h
   
4.    (setq ptn-x1 (+ pt1-x (* n-h hxjj)))
   
5.    (setq ptn-y1 (+ pt1-y (* n-v zxjj)))
   
6.    (setq ptn-x2 (+ pt2-x (* n-h hxjj)))
   
7.    (setq ptn-y2 (+ pt2-y (* n-v zxjj)))
   
8.    (setq ptn1 (list ptn-x1 ptn-y1))
   
9.    (setq ptn2 (list ptn-x2 ptn-y2))
   
10.   
    
11.    (setq pt-center (list (/ (+ ptn-x1 ptn-x2) 2)
    
12.     (/ (+ ptn-y1 ptn-y2) 2)
    
13.      )
    
14.    )
    
15.    (command ".zoom" "c" pt-center "")
    
16.    (command ".rectang" "w" xk ptn1 ptn2)
    
17.   
    
18.    (vlax-safearray-fill point1 ptn1)
    
19.    (vlax-safearray-fill point2 ptn2)
    
20.    (vla-put-plottype activelayout acwindow)
    
21.    (vla-refreshplotdeviceinfo activelayout)
    
22. 
    
23.    (vla-setwindowtoplot activelayout point1 point2)
    
24.    (setq plot (vla-get-plot acaddocument))
    
25.    (vla-put-numberofcopies plot copies)
    
26.    ;;(if (<= av 16)
    
27.      (vla-plottodevice plot) ;;第二次循环时automation错误，未提供说明.why??
    
28.     ;; (command ".plot" "n" "" "" "" "" "y" "")
    
29.    ;;)
    
30.    (entdel (entlast))
    
31.    (setq n-h (1+ n-h))
    
32. )
    

[code]<br /> (repeat page-h<br />    (setq ptn-x1 (+ pt1-x (* n-h hxjj)))<br />    (setq ptn-y1 (+ pt1-y (* n-v zxjj)))<br />    (setq ptn-x2 (+ pt2-x (* n-h hxjj)))<br />    (setq ptn-y2 (+ pt2-y (* n-v zxjj)))<br />    (setq ptn1 (list ptn-x1 ptn-y1))<br />    (setq ptn2 (list ptn-x2 ptn-y2))<br />   <br />    (setq pt-center (list (/ (+ ptn-x1 ptn-x2) 2)<br />     (/ (+ ptn-y1 ptn-y2) 2)<br />      )<br />    )<br />    (command ".zoom" "c" pt-center "")<br />    (command ".rectang" "w" xk ptn1 ptn2)<br />   <br />    (vlax-safearray-fill point1 ptn1)<br />    (vlax-safearray-fill point2 ptn2)<br />    (vla-put-plottype activelayout acwindow)<br />    (vla-refreshplotdeviceinfo activelayout)<br /> <br />    (vla-setwindowtoplot activelayout point1 point2)<br />    (setq plot (vla-get-plot acaddocument))<br />    (vla-put-numberofcopies plot copies)<br />    ;;(if (<= av 16)<br />      (vla-plottodevice plot) ;;第二次循环时automation错误，未提供说明.why??<br />     ;; (command ".plot" "n" "" "" "" "" "y" "")<br />    ;;)<br />    (entdel (entlast))<br />    (setq n-h (1+ n-h))<br /> )<br />

[/code]该批量打印程序，每次执行时只能打印第一张，到第二张的时候就出现automation错误，我被迫用command "plot"，是何解？找了一遍，感觉没哪个地方不对呀？
打印机是网络打印机，是不是和这有关？

zbs

打印未结束，所以第二页发不出去。第 一页占用了打印机。

oyxx1023

那如何解决这个问题呢，如何等待打印机发送完第一页后再执行第二遍循环？