[求助]打印的程序为什么出错？帮忙指正下！！
<p>我自己边的一个打印程序，其中有三处错误，请高手指点一下为什么错了，我找了半天都没找出来，小弟初学</p><p>Public Sub PLprint()<br/>ThisDrawing.ActiveLayout = ThisDrawing.Layouts.Item("Model")<br/>ThisDrawing.ActiveLayout.ConfigName = "DWF6 ePlot.pc3"</p><p>'设置打印方式是窗口</p><p> ThisDrawing.ModelSpace.Layout.PlotType = acWindow</p><p></p><p>Dim ptMin As Variant, ptMax As Variant<br/>Dim ent As AcadEntity</p><p><font color="#ff0000">ThisDrawing.SetVariable "BACKGROUNDPLOT", 0<br/>'这里显示设置系统变量时出错</font></p><p> For Each ent In ThisDrawing.ModelSpace<br/> If TypeOf ent Is AcadBlockReference Then<br/> If StrComp(ent.Name, "actj2tk", vbTextCompare) = 0 Then<br/> ent.GetBoundingBox ptMin, ptMax<br/> End If<br/> End If<br/> Next ent<br/> <br/> ' 设置打印范围<br/> <br/> ReDim Preserve ptMin(0 To 1)<br/> ReDim Preserve ptMax(0 To 1)<br/> ThisDrawing.ModelSpace.Layout.SetWindowToPlot ptMin, ptMax</p><p> </p><p></p><p>'设置打印比例为缩放到图纸大小，并中心对正<br/> ThisDrawing.ModelSpace.Layout.StandardScale = acScaleToFit<br/> ThisDrawing.ModelSpace.Layout.CenterPlot = True<br/> <br/> '设置笔为彩色<br/> <br/> <font color="#ff0000">ThisDrawing.ActiveLayout.StyleSheet = "DWF Virtual Pens.ctb"<br/> '这里显示输入有无效，可我看了cad中打印样式就这样的呀!</font><br/> <br/> <br/> '选择打印机和纸张<br/> ThisDrawing.ModelSpace.Layout.ConfigName = "WINDOW.PC3"<br/><font color="#ff0000"> ThisDrawing.ModelSpace.Layout.CanonicalMediaName = "600*2000 毫米"<br/> '这里提示输入无效，我自己设的纸张大小是600*2000的，要是有错该写成什么样呢？</font><br/> <br/> ' 设置打印份数为1<br/> ThisDrawing.Plot.NumberOfCopies = 1<br/> <br/> ' 设置安静打印</p><p> ThisDrawing.Plot.QuietErrorMode = True<br/> </p><p><br/>'打印<br/> ThisDrawing.Plot.PlotToDevice<br/> <br/> ThisDrawing.SetVariable "BACKGROUNDPLOT", 2<br/>End Sub<br/></p>[讨论]为什么没有人回答呀?我等着用
为什么没有人回答呀?我等着用 <p>应是没有样式表和不支持你的图纸。</p> <p>应是没有样式表和不支持你的图纸。</p> <p><br/> ThisDrawing.ActiveLayout = ThisDrawing.Layouts.Item("Model")<br/> <br/> ThisDrawing.ActiveLayout.PlotType = acWindow<br/><br/> ThisDrawing.SetVariable "BACKGROUNDPLOT", 0</p><p></p><p>我用这句是对的</p> 我输入样式的时候也出现这样的问题，不知道是什么原因，急死人了。提示输入无效。
页:
[1]