页面设置
前面提到,利用窗口设计器设计票据的时候,菜单中已经提供了页面设置功能。
但是不同的打印机,页边距的设置值可能会有所不同,对于交付使用的系统来说,我们通常不会开放窗口设计功能,让用户自己去调整票据的页边距。
能否自己设计一个打印窗口,让用户在打印票据之前,可以自己调整页边距呢?当然可以!
Form有一个Page属性,专门用于页面设置,该属性包括以下子属性,我们会逐个介绍这些属性的使用方法:
PaperKind: 纸张类型代码
Landscape: 逻辑型型,是否横向打印
Height: 设置页面高度,单位为毫米
Width: 页面宽度
LeftMargin: 左边距,单位为毫米
RightMargin: 右边距,单位为毫米
TopMargin: 上边距,单位为毫米
BottomMargin: 底边距,单位为毫米
提示:页面设置代码,必须在GernatePrintDoc方法之前执行,否则可能无效。
设置纸张
PaperKind属性是一个整数,用于设置纸张类型,所有的纸张类型都有一个整数表示。
示例
例如将纸张类型改为B5:
e.Form.Page.PaperKind = 13 '纸张类型改为B5
Dim
doc As
PrintDoc =
e.Form.GernatePrintDoc()
doc.Preview()
下表列出了常用的纸张类型:
值 | 纸张类型 |
---|---|
8 |
|
9 | |
11 | |
12 | |
13 | |
66 | |
70 |
纸张类型很多,全部纸张类型,请参考:纸张大全
横向打印
将Landscape属性设为True,即可横向打印。
示例
e.Form.Page.Landscape =
True
'横向打印
Dim doc
As PrintDoc =
e.Form.GernatePrintDoc()
doc.Preview()
自定义纸张
要使用自定义纸张,只需直接设置纸张的宽度和高度即可,单位为毫米。
示例
例如使用一个10厘米宽,12厘米高的纸张:
e.Form.Page.Width =
100
'纸张宽度为100毫米
e.Form.Page.Height = 120
'纸张高度为120毫米
Dim
doc
As PrintDoc =
e.Form.GernatePrintDoc()
doc.Preview()
设置页边距
下面的代码,左右边距设为1厘米,上下边距设为2厘米:
e.Form.Page.LeftMargin =
10 '设置左边距
e.Form.Page.RightMargin =
10 '设置右边距
e.Form.Page.TopMargin =
20 '设置上边距
e.Form.Page.BottomMargin =
20 '设置下边距
Dim
doc As
PrintDoc =
e.Form.GernatePrintDoc()
doc.Preview()