如何用vba设置打印机？

zemacun

如何用vba设置打印式样、纸张大小、打印范围（用窗口）等？

CLARKLEE

'===================================
'===================================
'========如果有打印任务=============
'===================================
'===================================

DoEvents
If Check4.Value = 1 Then
cadmessage.Label7.Caption = "正在设置打印机。。。。。。"
'6,设置打印设备
dwgfile.ActiveLayout.ConfigName = Combo2.Text
'7,设置打印模式
dwgfile.ActiveLayout.StyleSheet = Combo3.Text
'1,图纸尺寸与单位
dwgfile.ActiveLayout.CanonicalMediaName = Combo4.Text
dwgfile.ActiveLayout.PaperUnits = acMillimeters
'2,调整打印原点
Dim BASEPIONT As Variant
BASEPIONT = dwgfile.ActiveLayout.PlotOrigin
dwgfile.ActiveLayout.CenterPlot = True

'3,设置打印区域
dwgfile.ActiveLayout.PlotType = acExtents
'4,设置打印比例
dwgfile.ActiveLayout.StandardScale = acScaleToFit

'5,设置线宽比例
dwgfile.ActiveLayout.ScaleLineweights = False '建议不要设置线宽缩放
dwgfile.ActiveLayout.PlotRotation = ac90degrees
'打印机已选择
cadmessage.Label7.Caption = "正在打印。。。。。。"
dwgfile.Plot.PlotToDevice
'开始打印

End If

zemacun

我想知道如何设置打印范围（窗口选择）？