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

xtepkh

我有一个小程序,按照CAD2004帮助文件中的示例进行打印当前布局,就是不能正常打印,代码如下,有高手请指点一下,本人将感激不尽,可Email:dgjwmjgcj@163.com

2. Private Sub Cprint_Click()
3.   Dim strLayouts(0) As String
4. Dim varLayouts As Variant
5. strLayouts(0) = CLayout.Value
6. varLayouts = strLayouts
7. ThisDrawing.Plot.SetLayoutsToPlot varLayouts                 ' 将打印份数设置为 1
8. ThisDrawing.Plot.NumberOfCopies = 1                         ' 初始化打印
9.   ThisDrawing.Plot.PlotToDevice 'ThisDrawing.Plot.SetLayoutsToPlot "布局2"
10. 'ThisDrawing.Plot.DisplayPlotPreview acFullPreview
11.   End Sub

Private 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

先隐藏当前的对话框吧。

haohaohapp

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

xtepkh

打印出来的是空白纸

haohaohapp

如果你的布局中只有一张图的话，在打印之前加个ZoomExtents试试 再加个 varLayouts .StandardScale = acScaleToFit
varLayouts .CenterPlot = True 试试