缩放打印
PrintSetting中和缩放打印有关的子属性有:
- AutoScale
逻辑型,设为False按照比例缩放,设为True,缩放到指定的页数。
- ScalingFactor
整数型,指定缩放百分比,例如50表示缩小一半,100表示不缩放,200表示放大一半。
必须将AutoScale属性设为False,本属性才能发生作用。
- FitPagesAcross
指定水平方向打印的页数,系统自动计算水平方向的缩放比例,以便水平方向能够在指定的页数内打印完。
必须将AutoScale属性设为True,本属性才能发生作用。
- FitPagesDown
指定垂直方向打印的页数,系统自动计算垂直方向的缩放比例,以便垂直方向能够在指定的页数内打印完。
必须将AutoScale属性设为True,本属性才能发生作用。
示例
在命令窗口执行下面的代码,然后在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