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