vba内打印控制语句
我的材料表内图框大小位置都是固定的,要打印时得一个个的手动选择每一个框.由于cad的打印一次只能选一个,如果材料表有几十页的话,那就得选择几十次,非常之麻烦,而且容易选错.我想自编一批量打印程序,一次性将每一页打印区域的坐标发送给该程序,然后由此程序完成选点.打印工作.同时最好有选择笔宽.纸型,打印比例,打印角度,预览等功能.哪位能告知打印控制的相关语句,我在帮助中没有找到.谢谢. 这些配置均保存在 <A href="http://www.mjtd.com/object/acad2004/idh_layout_object.htm" target="_blank" >Layout</A> 布局对象中，它是模型空间或图纸空间图块的出图设置和可视化属性。 点击可查看
可以使用ThisDrawing.ActiveLayout来获得当前的布局。 我用过一个软件，可以满足楼主的要求，只要把需要打印部分的外框改为块参照或外部引用就可以了。
<A href="http://www.xdcad.com/forum/showthread.php?s=&threadid=116407" target="_blank" >http://www.xdcad.com/forum/showthread.php?s=&threadid=116407</A> subtlation发表于2004-2-20 9:48:00static/image/common/back.gif我用过一个软件，可以满足楼主的要求，只要把需要打印部分的外框改为块参照或外部引用就可以了。
<A href=\"http://www.xdcad.com/forum/showthread.php?s=&am...
<BR>谢谢.我还想自己先编一编.提高自己的编程水平.兄台能不能告知实现这些功能的语句,其余的我先看帮助,有不明指出再请教. 我没有编过打印这方面的程序。不太了解 我做过一个打印的程序（VBA），希望对你有所帮助。
下面是打印设置，你可以根据自己的需要改动。
Dim Plotset As AcadPlotConfiguration<BR> Set Plotset = ThisDrawing.PlotConfigurations.Add("mystyle")<BR> Plotset.PlotRotation = ac90degrees<BR> Plotset.ShowPlotStyles = True<BR> Plotset.StyleSheet = "33.ctb"<BR> Plotset.PaperUnits = acMillimeters<BR> Plotset.ConfigName = "a4.pc3"<BR> Plotset.PlotWithPlotStyles = True
后面的你自己编吧。
想预览就编以下代码：
ThisDrawing.Plot.DisplayPlotPreview acFullPreview
想实现自动打印就用程序在各个布局中搜索你图的标志，以它为起点计算打印区域。 非常感谢!这些部分我也找到了,但是笔宽设置找不到,能否再指点一二? 笔宽部分在图层里设置。 不是lineweight,是指打印时按颜色设置宽度. 如果是按颜色设置宽度，在程序中无法做到，因为程序无法控制颜色相关打印样式表中设置。<BR>但不论你使用何种打印样式表，均可以在图层中设置线宽并按图层中的线宽打印。
页:
[1]
2