请帮忙看一下在VBA中的页面设置为什么不能把打印范围改成 窗口 型式？

subtlation

2. Option ExplicitSub addPlotCon()
3.       
4.        On Error Resume Next
5.       
6.        '删除所有的设置
7.       
8.        Call delAllPlotCon
9.                                                    
10.        addPlotConfiguration "HP5000LE--A3", "\\Laserjet server\HP5000LE", "acad.ctb", _
11.                                                    "A3", True, True
12.                                                    
13.       
14. End SubFunction addPlotConfiguration(plotConName As String, configName As String, styleSheet As String, mediaName As String, _
15.                            isRotate90 As Boolean, ifFit As Boolean) As AcadPlotConfiguration
16.                            
17.        'On Error Resume Next      
18.        Dim PlotConfigurations As AcadPlotConfigurations
19.        Dim plotCon As AcadPlotConfiguration
20.       
21.        Set PlotConfigurations = ThisDrawing.PlotConfigurations
22.        Set plotCon = PlotConfigurations.Add(plotConName, True)
23.       
24.        With plotCon
25.                
26.                .configName = configName
27.                .CanonicalMediaName = mediaName
28.                .PaperUnits = acMillimeters
29.                .styleSheet = styleSheet
30.                .CenterPlot = True
31.                
32.                '.PlotHidden = False
33.                
34.                If isRotate90 Then
35.                        .PlotRotation = ac90degrees
36.                Else
37.                        .PlotRotation = ac0degrees
38.                End If
39.                
40.                If ifFit Then
41.                        .StandardScale = acScaleToFit
42.                Else
43.                        .StandardScale = ac1_1
44.                End If
45.                
46.                .PlotType = acExtents     '这一步可以运行
47.                .PlotType = acWindow   '可是这一步就不行了
48.                                .PlotType = acView
49.             
50.                '.PlotViewportBorders = False
51.                '.PlotViewportsFirst = True
52.                '.PlotWithLineweights = True
53.                .PlotWithPlotStyles = True
54.                '.ScaleLineweights = False
55.                '.ShowPlotStyles = False
56.                
57.                '.UseStandardScale = True
58.                
59.        End With
60.       
61.        Set addPlotConfiguration = plotCon
62.       
63. End Function
64. Sub delAllPlotCon()
65.        Dim plotCon As AcadPlotConfiguration
66.        '删除所有的设置
67.        For Each plotCon In ThisDrawing.PlotConfigurations
68.                plotCon.Delete
69.        Next
70. End Sub

Option ExplicitSub addPlotCon()               On Error Resume Next               '删除所有的设置               Call delAllPlotCon                                                            addPlotConfiguration "HP5000LE--A3", "\\Laserjet server\HP5000LE", "acad.ctb", _                                                    "A3", True, True                                                            End SubFunction addPlotConfiguration(plotConName As String, configName As String, styleSheet As String, mediaName As String, _                            isRotate90 As Boolean, ifFit As Boolean) As AcadPlotConfiguration                                    'On Error Resume Next              Dim PlotConfigurations As AcadPlotConfigurations        Dim plotCon As AcadPlotConfiguration               Set PlotConfigurations = ThisDrawing.PlotConfigurations        Set plotCon = PlotConfigurations.Add(plotConName, True)               With plotCon                                .configName = configName                .CanonicalMediaName = mediaName                .PaperUnits = acMillimeters                .styleSheet = styleSheet                .CenterPlot = True                                '.PlotHidden = False                                If isRotate90 Then                        .PlotRotation = ac90degrees                Else                        .PlotRotation = ac0degrees                End If                                If ifFit Then                        .StandardScale = acScaleToFit                Else                        .StandardScale = ac1_1                End If                                .PlotType = acExtents     '这一步可以运行                .PlotType = acWindow   '可是这一步就不行了                                .PlotType = acView                             '.PlotViewportBorders = False                '.PlotViewportsFirst = True                '.PlotWithLineweights = True                .PlotWithPlotStyles = True                '.ScaleLineweights = False                '.ShowPlotStyles = False                                '.UseStandardScale = True                        End With               Set addPlotConfiguration = plotCon        End Function Sub delAllPlotCon()        Dim plotCon As AcadPlotConfiguration        '删除所有的设置        For Each plotCon In ThisDrawing.PlotConfigurations                plotCon.Delete        Next End Sub

代码运行到               .PlotType = acExtents     '这一步可以运行
               .PlotType = acWindow   '可是这一步就不行了不知道如何才能把PlotType改成acwindow?请各位高手指点一下。

nxy_918

先设置打印WINDOWS的两个角坐标，再.PlotType = acWindow ，就可以至少我的程序是这样的 ThisDrawing.ModelSpace.Layout.SetWindowToPlot LowerLeft, UpperRight
hisDrawing.ModelSpace.Layout.PlotType = acWindow

subtlation

谢谢nxy_918，按你的方法已经解决了，下面是改变后的函数，可以满足要求了。

2. Function addPlotConfiguration(plotConName As String, configName As String, styleSheet As String, mediaName As String, _
3.                            isRotate90 As Boolean, ifFit As Boolean) As AcadPlotConfiguration
4.                            
5.        On Error Resume Next
6.       
7.        Dim leftPnt(0 To 1) As Double, rightPnt(0 To 1) As Double
8.       
9.        leftPnt(0) = 0: leftPnt(1) = 0
10.        rightPnt(0) = 1: rightPnt(1) = 1
11.       
12.        Dim PlotConfigurations As AcadPlotConfigurations
13.        Dim plotCon As AcadPlotConfiguration
14.       
15.        Set PlotConfigurations = ThisDrawing.PlotConfigurations
16.        Set plotCon = PlotConfigurations.Add(plotConName, True)
17.       
18.        With plotCon
19.                
20.                .configName = configName
21.                .CanonicalMediaName = mediaName
22.                .PaperUnits = acMillimeters
23.                .styleSheet = styleSheet
24.                .CenterPlot = True
25.                
26.                '.PlotHidden = False
27.                
28.                If isRotate90 Then
29.                        .PlotRotation = ac90degrees
30.                Else
31.                        .PlotRotation = ac0degrees
32.                End If
33.                
34.                If ifFit Then
35.                        .StandardScale = acScaleToFit
36.                Else
37.                        .StandardScale = ac1_1
38.                End If
39.                
40.                .SetWindowToPlot leftPnt, rightPnt
41.                .PlotType = acWindow
42.             
43.                '.PlotViewportBorders = False
44.                '.PlotViewportsFirst = True
45.                '.PlotWithLineweights = True
46.                .PlotWithPlotStyles = True
47.                '.ScaleLineweights = False
48.                '.ShowPlotStyles = False
49.                
50.                '.UseStandardScale = True
51.                
52.        End With
53.       
54.        Set addPlotConfiguration = plotCon
55.       
56. End Function

Function addPlotConfiguration(plotConName As String, configName As String, styleSheet As String, mediaName As String, _                            isRotate90 As Boolean, ifFit As Boolean) As AcadPlotConfiguration                                    On Error Resume Next               Dim leftPnt(0 To 1) As Double, rightPnt(0 To 1) As Double               leftPnt(0) = 0: leftPnt(1) = 0        rightPnt(0) = 1: rightPnt(1) = 1               Dim PlotConfigurations As AcadPlotConfigurations        Dim plotCon As AcadPlotConfiguration               Set PlotConfigurations = ThisDrawing.PlotConfigurations        Set plotCon = PlotConfigurations.Add(plotConName, True)               With plotCon                                .configName = configName                .CanonicalMediaName = mediaName                .PaperUnits = acMillimeters                .styleSheet = styleSheet                .CenterPlot = True                                '.PlotHidden = False                                If isRotate90 Then                        .PlotRotation = ac90degrees                Else                        .PlotRotation = ac0degrees                End If                                If ifFit Then                        .StandardScale = acScaleToFit                Else                        .StandardScale = ac1_1                End If                                .SetWindowToPlot leftPnt, rightPnt                .PlotType = acWindow                             '.PlotViewportBorders = False                '.PlotViewportsFirst = True                '.PlotWithLineweights = True                .PlotWithPlotStyles = True                '.ScaleLineweights = False                '.ShowPlotStyles = False                                '.UseStandardScale = True                        End With               Set addPlotConfiguration = plotCon        End Function

TIAN_MM

正也遇到出图问题，怎样在用 ThisDrawing.Plot.PlotToDevice 语句时让楼上的程序设置起作用，我要输出黑白没有灰度的图，用vb程序实现不了，请帮忙．

yzbj1983

 请教老兄帮忙给我解释一下这句是什么意思好吧,谢谢了!

   addPlotConfiguration "HP5000LE--A3", "\\Laserjet server\HP5000LE", "acad.ctb", _
                          "A3", True, True

能详细点最好的啦!!!