los_su 发表于 2006-9-27 11:40:00

打印页面设置的问题！

<P>Dim PlotConfigurations As AcadPlotConfigurations<BR>&nbsp;&nbsp;&nbsp;&nbsp; Dim plotCon As AcadPlotConfiguration, Dy$<BR>&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp; Set PlotConfigurations = acaddoc.PlotConfigurations<BR>&nbsp;&nbsp;&nbsp;&nbsp; Set plotCon = PlotConfigurations.Add("55", True)<BR>&nbsp;&nbsp;&nbsp;&nbsp;’以下对plotcon的各项属性进行设置&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp; With plotCon<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .ConfigName = 默认打印机名<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .CanonicalMediaName = "A3"<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .PaperUnits = acMillimeters<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .StyleSheet = "acad.ctb"<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .CenterPlot = True<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .PlotRotation = ac90degrees<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .StandardScale = acScaleToFit<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .PlotType = acExtents<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .PlotWithPlotStyles = True<BR>&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp; End With</P>
<P>‘这里设置plotcon完成以后，如何把plotcon设置为默认的页面设置？？？？？</P>
<P>我一直找不到设置的方法，这样打印图纸的时候要手动在《页面设置名》中选择才可以！</P>
<P>请高手指教一下！</P>
页: [1]
查看完整版本: 打印页面设置的问题！