如何居中打印

yicol

<BR>                         Dim Point1 As Variant, Point2 As Variant<BR>                                <BR>                         Point1 = ThisDrawing.Utility.GetPoint(, "Click the lower-left of the window to plot.")<BR>                         ReDim Preserve Point1(0 To 1)                 ' Change this to a 2D array by removing the Z position<BR>                                <BR>                         Point2 = ThisDrawing.Utility.GetPoint(, "Click the upper-right of the window to plot.")<BR>                         ReDim Preserve Point2(0 To 1)                 ' Change this to a 2D array by removing the Z position<BR>                         ThisDrawing.ActiveLayout.CenterPlot = True<BR>                                <BR>                         ThisDrawing.ActiveLayout.SetWindowToPlot Point1, Point2<BR>                                <BR>                         ThisDrawing.ActiveLayout.PlotType = acWindow<BR>                                <BR>                         ThisDrawing.Plot.DisplayPlotPreview acFullPreview<BR>为什么不能居中？？？大家帮忙

雪山飞狐_lzh

我试过了，是居中的，：）