无法设置绘图仪配置
在一个对话框中，我有一个图形中所有打印配置的下拉列表。当我从对话框中选择打印机时，该值存储在cboPrinter中。价值然后，我使用Select Case语句定义选择的值，然后相应地运行绘图：Set plotObj = ThisDrawing.Plot
Set objLayout = ThisDrawing.ActiveLayout
Set PlotConfigurations = ThisDrawing.PlotConfigurations
On Error Resume Next
objLayout.CopyFrom PlotConfigurations.Item(cboPrinter.Value)
Select Case cboPrinter.Value
Case "Piping BW - B-size 11x17"
objLayout.RefreshPlotDeviceInfo
objLayout.ConfigName = cboPrinter.Value
objLayout.PlotType = acExtents
objLayout.UseStandardScale = True
objLayout.StandardScale = acScaleToFit
objLayout.PlotRotation = ac90degrees
objLayout.CanonicalMediaName = "11x17"
objLayout.PlotWithPlotStyles = True
objLayout.StyleSheet = cboPlotStyle.Value
plotObj.PlotToDevice
End Select
我遇到的问题是线路无法布置。ConfigName=cboPrinter。值未设置配置名称。有人知道为什么我不能设置ConfigName吗？
页:
[1]