页面设置
PrintSetting有很多子属性,其中和页面设置相关的有:
PaperKind: 纸张类型代码
Landscape: 逻辑型,是否横向打印
MarginLeft: 左边距,单位为毫米
MarginRight: 右边距,单位为毫米
MarginTop: 上边距,单位为毫米
MarginBottom: 底边距,单位为毫米
示例
Dim Book As New XLS.Book
Dim Sheet As XLS.Sheet = Book.Sheets(0)
With Sheet.PrintSetting
.PaperKind = 9 '设为A4纸
.LandScape = True '横向打印
.MarginLeft = 20 '左右边距设为20毫米
.MarginRight = 20
.MarginTop = 15 '上下边距设为15毫米
.MarginBottom = 15
End With
下表列出了常用的纸张类型:
值 | 纸张类型 |
---|
8 | A3 |
9 | A4 |
11 | A5 |
12 | B4 |
13 | B5 |
66 | A2 |
70 | A6 |
纸张类型很多,全部纸张类型,请参考:纸张大全
这是开发宝典的案例。
如果用自定义纸张:比如:8.5X3.66这样的,这个代码要怎样写?