[求助]：请问，如何用VBA实现自动打印？

YAMA

你好！我想用VBA实现自动打印模型空间的一区域，不需经过CAD中一系列的选项，请问如何实现？*-*i

zf9568

帮助系统中打印模型空间的例子：
Sub Ch9_PrintModelSpace()
    ' 验证活动空间是模型空间
    If ThisDrawing.ActiveSpace = acPaperSpace Then
        ThisDrawing.MSpace = True
        ThisDrawing.ActiveSpace = acModelSpace
    End If
   
    ' 设置打印区域的范围和比例
    ThisDrawing.ModelSpace.Layout.PlotType = acExtents
    ThisDrawing.ModelSpace.Layout. _
                          StandardScale = acScaleToFit
   
    ' 将打印份数设置为 1
    ThisDrawing.Plot.NumberOfCopies = 1
   
    ' 初始化打印
    ThisDrawing.Plot.PlotToDevice
End Sub

你要打印某一区域，在其中加入下面的语句：
ThisDrawing.ActiveLayout.SetWindowToPlot point1, point2

YAMA

XDCAD里总是高手如云啊

daib

目前我正在做这样一个软体，再有十天就好了。可以实现全自动、全文件打印，而且是按比例的。快要完工了

YAMA

daib,你好，能不能交流一下!

daib

好的，没问题。
我做的各式主要用途是大批量的打印，但它需要外部参照的图框做界限，在开始打印前先设定好打印机及打印样式表、打印纸张大小，就可以实现同一文件夹下所有CAD档(包括子文件夹)里的所有图(包括一张图里有好几张图档)，打印出来的PLT文件实行自动增量命名。
如果你有什么特殊要求，可以说说。

subtlation

daib：我的图框都是外部参照的。做好后能不能发给我一份？
做程序时打印除了做plt之外最好能有自动发到打印机的。比例也要能调整。你可以参考一下下面这个程序。http://www.xdcad.net/forum/showthread.php?s=&threadid=116407

daib

谢谢楼上提供的资料，我所要实现的功能和秋枫所提供的基本一致，也是按比例批量打印。但它只支持CAD2002或以上，可能不支持R14(我在CAD2002下开发)。打印到PLT文件和打印到打印机只是一点点差别，可以实现。
大家还有什么要求，或理想中的界面，可以说说。
另：我有个疑问，楼上的为什么不直接用理正批处理打印呢？我写这个纯粹是练手，未必比理正的好，只是自己用的顺手而已。