Foxtable(狐表)用户栏目专家坐堂 → [求助]excel模板自定义纸张怎样设置?


  共有4900人关注过本帖树形打印复制链接

主题:[求助]excel模板自定义纸张怎样设置?

帅哥哟,离线,有人找我吗?
eway168
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:96 积分:717 威望:0 精华:0 注册:2013/6/28 13:05:00
[求助]excel模板自定义纸张怎样设置?  发帖心情 Post By:2013/8/27 9:54:00 [显示全部帖子]

页面设置

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

9A4
11A5
12B4
13B5
66A2
70A6

纸张类型很多,全部纸张类型,请参考:纸张大全



这是开发宝典的案例。

如果用自定义纸张:比如:8.5X3.66这样的,这个代码要怎样写?



 回到顶部