AUTOCAD2010 使用VBA调用系统打印机完成打印非常慢，如何解决？

157787698

本人写了一段VBA程序用来将CAD图形转化为MDI格式，此CAD图纸也同样是由此程序生成，原来在AUTOCAD2004中可以正常生成图纸并通过plottofile方法转化为MDI格式，但是现在公司统一将CAD升级为2010，这样导致此程序不能使用。
: z3 q; D% D/ B3 W
问题出现在使用plottofile方法进行虚拟打印过程。

4 n% j8 X8 f9 o# _9 N原来在AUTOCAD2004中，使用plottofile方法完成虚拟打印只需要20秒左右，但是在AUTOCAD2010中，完成统一个动作需要150秒左右，这是不能接受的。而且在程序中如果连续使用两次plottofile方法，则即使对第一次使用plottofile方法生成的文件进行是否存在进行判断，第二次打印时程序仍然会跳出中断。
6 P* g% h3 ]8 z9 x; _9 J2 t
具体代码如下：

+ M. @* e+ v: c2 j        point1(0) = -5
$ l& V/ @% E( z, x. Q2 M) E        point1(1) = 310
        point2(0) = 420
        point2(1) = 610
' E8 ^) c$ P0 w/ d7 z9 S0 F       i = 0
        ' Send information about window to current layout
/ a7 A3 G& z3 Y2 G; W0 Z        ThisDrawing.ActiveLayout.SetWindowToPlot point1(), point2()
        ' Read back window information
        ThisDrawing.ActiveLayout.GetWindowToPlot point1(), point2()
& g7 Q3 z7 X% b8 `4 @# R. Z9 m* z'        ThisDrawing.Plot.DisplayPlotPreview acFullPreview    '全局预览
        ThisDrawing.ModelSpace.LAYOUT.PlotRotation = ac0degrees
0 b, u- G' w+ l$ S" H         ' 将打印份数设置为 1
8 {+ h- J. T2 ~! H& @7 c- J        ThisDrawing.Plot.NumberOfCopies = 1
        ThisDrawing.ModelSpace.LAYOUT.PlotType = acWindow
) A( |! h1 |; I2 z6 M. ?3 u  a        ThisDrawing.ModelSpace.LAYOUT.StandardScale = acVpScaleToFit
        ThisDrawing.ModelSpace.LAYOUT.CenterPlot = True '
; s5 J* \* d  c3 r# I$ ], g        ThisDrawing.Plot.QuietErrorMode = True
/ l) s" E" N' e, z, s; q* C        ThisDrawing.Regen acActiveViewport
# y: V# P! g" b3 d2 K         ' 初始化打印
& P; z& M* H# D5 j        RegOpenKeyEx HKEY_CURRENT_USER, regpath, 0, KEY_ALL_ACCESS, Result
        RegSetValueEx Result, "OpenInMODI", 0, reg_dword, 0, 4
) ^' [/ e! U( `8 R6 h        RegCloseKey Result
   
        ThisDrawing.Plot.PlotToFile KHpathmdi1
              '判断文件是否存在
     Do While Dir(KHpathmdi1) = ""
6 T- f0 L$ ~$ g- r8 N. S! g/ }' }) m            DoEvents
            i = i + 1
        Loop   
6 O. ?) d* ~; u    i = 0
   'On Error Resume Next
    point1(0) = -5
/ ~) U7 P  `2 I1 Y( z    point1(1) = -3
; \- r% m- v/ T1 A% ?    point2(0) = 420
    point2(1) = 297
    ThisDrawing.ActiveLayout.SetWindowToPlot point1(), point2()
, _* n0 ^$ a! o6 L. c# Q6 Q- D    ThisDrawing.ActiveLayout.GetWindowToPlot point1(), point2()
) y: U% p- H* c6 U/ n7 }    ThisDrawing.ModelSpace.LAYOUT.PlotRotation = ac0degrees
'    ThisDrawing.Regen acActiveViewport
; N4 [6 F( r0 }# J* E$ a- C) `+ x    ThisDrawing.Plot.NumberOfCopies = 1
8 K2 B6 \& n# ?# ]* a    ThisDrawing.ModelSpace.LAYOUT.PlotType = acWindow
    ThisDrawing.ModelSpace.LAYOUT.StandardScale = acVpScaleToFit
7 N" s- T7 d$ n2 X    ThisDrawing.ModelSpace.LAYOUT.CenterPlot = True
* r/ i- f7 Q/ c0 g( w/ R( w0 p3 j    ThisDrawing.Plot.QuietErrorMode = True
+ V4 M" j( N5 ?! X# S    ThisDrawing.Regen acActiveViewport
    RegOpenKeyEx HKEY_CURRENT_USER, regpath, 0, KEY_ALL_ACCESS, Result
    RegSetValueEx Result, "OpenInMODI", 0, reg_dword, 0, 4
    RegCloseKey Result
    ThisDrawing.Plot.PlotToFile AZpathmdi1
& e+ q$ W2 @9 [    Do While Dir(AZpathmdi1) = ""
        DoEvents
        i = i + 1
: O3 P8 K: R# P7 n3 Y; {1 X    Loop
5 s; K( q6 z, |
在判断第一次plottofile方法是否完成时，粉色部分循环运行了40多万次；如果在粉色部分后面设置断点，然后再继续运行，则第二次使用plottofile方法调用系统打印机可以完成打印，程序可以正常运行，而为完成此次循环，蓝色部分循环需要运行运行30多万次。这两个循环中任一个都需要耗费150秒左右。

9 S# P7 w" H) |+ j! E# ]" n而原来在AUTOCAD2004中，这两个循环 i 均等于0，也就是系统打印机与VBA程序基本上是同步执行的。
; G8 X0 L  [5 v) b

为什么会有这个差异？请各位大虾指点,谢谢

157787698

大家没有遇到这种情况吗?怎么都没有人回复阿

157787698

自己顶一下

157787698

问题已经解决
. s( x6 c6 ~# `
* _- G. a8 Z8 y5 X5 a; v8 ]解决方法：
  w* @( m; h" b3 a. [3 w在选项中不勾选后台打印关闭