Question

cad vba 打印

auto cad vba 编程
真是个好办法。
请问一下：
使用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里显示的图纸空间，可我不晓得怎么使用“上一次打印”的样式，请帮帮忙，谢谢

Answer 1

每次打印前设置的参数都应该保存在一个文本文件中，下一次打印前从这个文件中读取上次的参数就可以了。如果这次打印前又改变了参数，再重写这个文件即可为下次使用。