vba内打印控制语句

mikewolf2k

我的材料表内图框大小位置都是固定的,要打印时得一个个的手动选择每一个框.由于cad的打印一次只能选一个,如果材料表有几十页的话,那就得选择几十次,非常之麻烦,而且容易选错.我想自编一批量打印程序,一次性将每一页打印区域的坐标发送给该程序,然后由此程序完成选点.打印工作.同时最好有选择笔宽.纸型,打印比例,打印角度,预览等功能.



哪位能告知打印控制的相关语句,我在帮助中没有找到.谢谢.

mccad

这些配置均保存在 Layout 布局对象中，它是模型空间或图纸空间图块的出图设置和可视化属性。 点击可查看 可以使用ThisDrawing.ActiveLayout来获得当前的布局。

subtlation

我用过一个软件，可以满足楼主的要求，只要把需要打印部分的外框改为块参照或外部引用就可以了。 http://www.xdcad.com/forum/showthread.php?s=&threadid=116407

mikewolf2k

subtlation发表于2004-2-20 9:48:00我用过一个软件，可以满足楼主的要求，只要把需要打印部分的外框改为块参照或外部引用就可以了。 <A href=\"http://www.xdcad.com/forum/showthread.php?s=&am...

谢谢.我还想自己先编一编.提高自己的编程水平.兄台能不能告知实现这些功能的语句,其余的我先看帮助,有不明指出再请教.

subtlation

我没有编过打印这方面的程序。不太了解

haohaohapp

我做过一个打印的程序（VBA），希望对你有所帮助。 下面是打印设置，你可以根据自己的需要改动。 Dim Plotset As AcadPlotConfiguration
Set Plotset = ThisDrawing.PlotConfigurations.Add("mystyle")
Plotset.PlotRotation = ac90degrees
Plotset.ShowPlotStyles = True
Plotset.StyleSheet = "33.ctb"
Plotset.PaperUnits = acMillimeters
Plotset.ConfigName = "a4.pc3"
Plotset.PlotWithPlotStyles = True 后面的你自己编吧。 想预览就编以下代码： ThisDrawing.Plot.DisplayPlotPreview acFullPreview 想实现自动打印就用程序在各个布局中搜索你图的标志，以它为起点计算打印区域。

mikewolf2k

非常感谢!这些部分我也找到了,但是笔宽设置找不到,能否再指点一二?

mccad

笔宽部分在图层里设置。

mikewolf2k

不是lineweight,是指打印时按颜色设置宽度.

mccad

如果是按颜色设置宽度，在程序中无法做到，因为程序无法控制颜色相关打印样式表中设置。
但不论你使用何种打印样式表，均可以在图层中设置线宽并按图层中的线宽打印。