以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]excel模板自定义纸张怎样设置？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=39557)
--  作者：eway168
--  发布时间：2013/8/27 9:54:00
--  [求助]excel模板自定义纸张怎样设置？

页面设置

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这样的，这个代码要怎样写？
--  作者：Bin
--  发布时间：2013/8/27 9:57:00
--  
只能设置纸张类型,不能自定义纸张吧