缩放打印

PrintSetting中和缩放打印有关的子属性有:

示例

在命令窗口执行下面的代码,然后在Excel中打印预览,可以看到已经自动缩放为1页:

Dim Book As New XLS.Book '定义一个Excel工作簿
Dim
Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表
With
Sheet.PrintSetting
    .AutoScale =
True '自动缩放
    .FitPagesDown =
1 '垂直方向缩为1页
End
With
For
i As Integer = 0 To 50 '向工作表的单元格中设置值
    Sheet(i,
0).Value = (i + 1) * 10
    Sheet(i,
1).Value = (i + 1) * 100
    Sheet(i,
2).Value = (i + 1) * 1000
Next

Book.Save(
"c:\reports\test.xls") '保存工作簿
Dim
Proc As New Process '打开工作簿
Proc.File =
"c:\reports\test.xls"

Proc.Start()


本页地址:http://www.foxtable.com/webhelp/topics/1313.htm