页面设置

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

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

A3

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

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

横向打印

将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()


本页地址:http://www.foxtable.com/webhelp/topics/1602.htm