关于在VBA中打印的问题

xtepkh

Private Sub Cprint_Click()
Dim strLayouts(0) As String
Dim varLayouts As Variant
strLayouts(0) = CLayout.Value
varLayouts = strLayouts
ThisDrawing.Plot.SetLayoutsToPlot varLayouts

ThisDrawing.Plot.NumberOfCopies = 1


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

mccad

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

xtepkh

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

myfreemind

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

xtepkh

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

myfreemind

layout.SetWindowToPlot plotmin, plotmax

你的打印区域有设置吗？用窗选，然后发送到打印机就好了，但你的图和纸的尺寸起码要匹配