真是个好办法。
请问一下：
使用CAD的VBA 创建一个打印程序，打印图纸空间（图纸空间比较多），使用上一次打印设置怎么搞？谢谢
这是我的代码：
Private Sub CommandButton2_Click()
'
' 建立要打印的图纸空间布局
Dim strLayouts(0 To 999) As String
Dim varLayouts As Variant
Dim n As Integer
Dim m As Integer
For m = 0 To ListBox1.ListCount - 1
strLayouts(m) = ListBox1.List(m)
'MsgBox (ListBox1.List(m))
Next m
varLayouts = strLayouts
ThisDrawing.Plot.SetLayoutsToPlot varLayouts
' 将打印份数设置为 1
ThisDrawing.Plot.NumberOfCopies = 1
' 初始化打印
'ThisDrawing.Plot.PlotToDevice ThisDrawing.ModelSpace.Layout.ConfigName
ThisDrawing.Plot.PlotToDevice
---------------------------------------------------------------------------
我用他打印listbox里显示的图纸空间，可我不晓得怎么使用“上一次打印”的样式，请帮帮忙，谢谢
|
|
