页面设置
前面提到，利用窗口设计器设计票据的时候，菜单中已经提供了页面设置功能。
但是不同的打印机，页边距的设置值可能会有所不同，对于交付使用的系统来说，我们通常不会开放窗口设计功能，让用户自己去调整票据的页边距。
能否自己设计一个打印窗口，让用户在打印票据之前，可以自己调整页边距呢？当然可以！
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()