以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  有谁知道会计凭证纸的纸张编号是什么?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=102207)

--  作者:czy66ds
--  发布时间:2017/6/15 9:34:00
--  有谁知道会计凭证纸的纸张编号是什么?
详细规格:会计凭证纸   11孔   宽24.13    高13.97
--  作者:czy66ds
--  发布时间:2017/6/15 9:37:00
--  
又,它的纸张类型是什么?
--  作者:有点蓝
--  发布时间:2017/6/15 9:39:00
--  
看看:http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=100391&skin=0
--  作者:czy66ds
--  发布时间:2017/6/15 9:52:00
--  
狐表帮助有个附录/纸张编号与类型表,我想知道该表中是否有这个类型纸张,如果有是那一个?
--  作者:有点蓝
--  发布时间:2017/6/15 10:05:00
--  
估计不会有。只能自己到电脑打印机属性中打开每种纸张,看看纸张的大小
--  作者:czy66ds
--  发布时间:2017/6/15 10:07: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


需要纸张编号



--  作者:有点蓝
--  发布时间:2017/6/15 10:18:00
--  
明白楼上的意思,默认的都在这里:http://www.foxtable.com/webhelp/scr/0475.htm,但是不知道是否有您需要的大小,只能自己查看。

如果没有,只能自己添加自定义纸张。通过3楼连接里的方法查看自定义纸张的类型

或者通过vba设置纸张的大小,不能使用6楼的方法