[求助]：请高手分析：用VBA打印这个文件，打印的不是设好窗口的范围

zezh

问题同上，代码如下。打印机选成你的机子上有的打印机，大家可试试。用同样的代码打印别的文件没问题。请高手分析原因。

Public Sub test()
    Dim pLayout As AcadLayout
    Dim minPnt(1) As Double
    Dim maxPnt(1) As Double
   
    Set pLayout = ThisDrawing.ActiveLayout
   
    minPnt(0) = 0: minPnt(1) = 0
    maxPnt(0) = 200: maxPnt(1) = 100
    pLayout.SetWindowToPlot minPnt, maxPnt
    pLayout.PlotType = acWindow
   
    ThisDrawing.Plot.DisplayPlotPreview acFullPreview
End Sub

sunjwwcj

怎么下载不了了呢？