xtepkh 发表于 2004-3-25 23:36:00

[VBA]有关打印布局的问题

我有一个小程序,按照CAD2004帮助文件中的示例进行打印当前布局,就是不能正常打印,代码如下,有高手请指点一下,本人将感激不尽,可Email:dgjwmjgcj@163.comPrivate Sub Cprint_Click()
Dim strLayouts(0) As String
Dim varLayouts As Variant
strLayouts(0) = CLayout.Value
varLayouts = strLayouts
ThisDrawing.Plot.SetLayoutsToPlot varLayouts               ' 将打印份数设置为 1
ThisDrawing.Plot.NumberOfCopies = 1                         ' 初始化打印
ThisDrawing.Plot.PlotToDevice 'ThisDrawing.Plot.SetLayoutsToPlot "布局2"
'ThisDrawing.Plot.DisplayPlotPreview acFullPreview
End Sub

mccad 发表于 2004-3-26 07:47:00

先隐藏当前的对话框吧。

haohaohapp 发表于 2004-3-31 16:14:00

提示什么错误?或者打印出来是什么效果,我怀疑要激活当前布局

xtepkh 发表于 2004-4-9 22:10:00

打印出来的是空白纸

haohaohapp 发表于 2004-4-10 08:16:00

如果你的布局中只有一张图的话，在打印之前加个ZoomExtents试试


再加个 <FONT face=宋体>varLayouts </FONT>.StandardScale = acScaleToFit<BR>                                                                                                <FONT face=宋体>varLayouts </FONT>.CenterPlot = True 试试
页: [1]
查看完整版本: [VBA]有关打印布局的问题