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

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

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


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