xtepkh 发表于 2004-3-11 20:36:00

关于在VBA中打印的问题

Private Sub Cprint_Click()<BR>Dim strLayouts(0) As String<BR>Dim varLayouts As Variant<BR>strLayouts(0) = CLayout.Value<BR>varLayouts = strLayouts<BR>ThisDrawing.Plot.SetLayoutsToPlot varLayouts<BR><BR>ThisDrawing.Plot.NumberOfCopies = 1<BR>                                                                <BR><BR>        ThisDrawing.Plot.PlotToDevice<BR>        End Sub


以上代码为什么在CAD中不能正常打印,这可是从帮助中复制出来的.有知道的请造知.。本人将感激不尽。Emai:xtepkh@163.com<BR>

mccad 发表于 2004-3-11 21:52:00

CLayout.Value是什么，没有具体值

xtepkh 发表于 2004-4-9 22:13:00

CLayout.Value 是一个列表框的值，可选择布局名称

myfreemind 发表于 2004-4-9 22:42:00

其实你什么都不用管，只要设置好，直接ThisDrawing.Plot.PlotToDevice就可以了

xtepkh 发表于 2004-4-11 18:35:00

没用,我已试过了,打印空白纸张。

myfreemind 发表于 2004-4-11 20:01:00

layout.SetWindowToPlot plotmin, plotmax<BR><BR>你的打印区域有设置吗？用窗选，然后发送到打印机就好了，但你的图和纸的尺寸起码要匹配<BR>
页: [1]
查看完整版本: 关于在VBA中打印的问题