VBA中范围打印命令是什么？

houlinbo

VBA中有显示打印、根据图纸大小打印等，VBA中范围打印命令是什么？

PS122

object.SetWindowToPlot(LowerLeft, UpperRight)

Object

MSITStore:D:\AutoCAD%202005\help\acadauto.chm::/idh_layout_object.htm" target="_blank" >Layout, MSITStore:D:\AutoCAD%202005\help\acadauto.chm::/idh_plotconfiguration_object.htm" target="_blank" >PlotConfiguration
The object or objects this method applies to.

LowerLeft

Variant (two-element array of doubles); input-only
The X and Y values for the lower-left window.

UpperRight

Variant (two-element array of doubles); input-only
The X and Y values for the upper-right window.

houlinbo

可以加上注释吗？

houlinbo

Private Sub CommandButton1_Click()
ThisDrawing.PaperSpace.Layout.ConfigName = "hp laserjet 1000"
' 到布局
If ThisDrawing.ActiveSpace = acModelSpace Then
ThisDrawing.ActiveSpace = acPaperSpace
ThisDrawing.MSpace = False
ZoomExtents
End If
'打印落在选定空间内的全部内容
ThisDrawing.PaperSpace.Layout.PlotType = acExtents
'设计为草图打印，不计比例
ThisDrawing.PaperSpace.Layout.StandardScale = acScaleToFit
' 设置打印份数为1
ThisDrawing.Plot.NumberOfCopies = a
' 开始打印
ThisDrawing.Plot.PlotToDevice
Unload UserForm8
' 到模型
If ThisDrawing.ActiveSpace = acPaperSpace Then
ThisDrawing.MSpace = True
ThisDrawing.ActiveSpace = acModelSpace
End If
End Sub

houlinbo

如4楼程序所示，是我编的一个程序，启动CAD后，用程序画的第一个图，可以全图打印，删除此图，再次用程序划图，再次打印时，总是不能全图打印，是否如下语名有问题？

'打印落在选定空间内的全部内容 ThisDrawing.PaperSpace.Layout.PlotType = acExtents