vsPrinter控件的使用.docx

vsPrinter控件的使用.docx

《vsPrinter控件的使用.docx》由会员分享，可在线阅读，更多相关《vsPrinter控件的使用.docx（45页珍藏版）》请在冰豆网上搜索。

vsPrinter控件的使用

vsPrinter控件的使用

一、一般使用的步骤

WITHThisform.vsPrinter

（一）SetupDevice（设置设备）

.Preview=True

.Device=“EpsonLQ-1900K”

.ExportFile=”C:

\mydocus\test.rtf”

.ExportFormat=vpxRTF

（二）SetupDocument（设置文档）

.Font=”Tahoma”

.FonSize=9

.Header=”Test||page%d”

.MarginLeft=”1in”

（三）StartDocument（开始文档）

.StartDoc

（四）GenerateDocument（产生文档）

Fori=0to1

.Paragraph=”Hello,World1”+str（i）

if.Error<>then

exit

endif

endfor

（五）EndDocument（结束文档）

.EndDoc

（六）Preview/Print/SaveDocument（预览，打印，保存文档）

.PrintDoc

.SaveDoc（“C:

\mydocus\test.rtf”）

EndWith

二、详细说明

1、用户接口属性

（1）控件外观

⒈Appearance,BackColor,BorderStyle（略）

⒉EmptyColor[=colorref&]：

设置预览页面周围区域的颜色

⒊NavBar[=NavBarSettings]：

返回或设置是否显示导航条

Constant

Value

Description

vpnbNone

0

不显示

vpnbTop

1

在控件上方显示一简单的导航条

vpnbBottom

2

在控件下方显示一简单的导航条

vpnbTopPrint

3

在控件上方显示一复杂的导航条，这是缺省设置

vpnbBottomPrint

4

在控件下方显示一复杂的导航条

默认值为vpnbTopPrint（3）

⒋NavBarColor[=colorref&]：

返回或设置导航条的颜色

⒌AbortWindow[={True|False}]：

返回或设置在打印时是否显示中断对话框，默认值为True

⒍AbortWindowPos[=AbortWindowPosSettings]：

返回或设置缺省中断对话框的放置

Constant

Value

Description

awAppWindow

0

自动中断对话框显示在控件的中心

awScreenCenter

1

自动中断对话框显示在屏幕的中心

默认值为awAppWindow（0）

⒎Error[=PrinterErrorSettings]：

返回描述一个错误条件的代码

Constant

Value

vperCantAccessPrinter

3

vperCantStartJob

4

vperUserAborted

5

vperAlreadyPrinting

6

vperDeviceIncapable

7

vperControlIncapable

8

vperCantInBrowser

9

⒏AbortCaption[=valueasstring]：

返回或设置缺省中断对话框的标题，默认值为：

"Printing..."

⒐AbortTextButton[=valueasstring]：

返回或设置缺省中断对话框中按钮的标题，默认值为：

"Cancel"

⒑AbortTextDevice[=valueasstring]：

返回或设置缺省中断对话框中设备字串的标题，默认值为：

"onthe%son%s"，第一个%s代表设备名，第二个%s代表端口名。

⒒AbortTextPage[=valueasstring]：

返回或设置缺省中断对话框中页字串的标题，默认值为：

"NowprintingPage%dof"，%d代表当前页号

（2）预览

⒈Preview[={True|False}]：

返回或设置输出是存为预览还是直接打印，默认值为True

⒉PreviewPage[=valueasinteger]：

返回或设置当前预览的页号

⒊Val%=PreviewPages：

返回当前在预览屏幕中的页数，这取决于ZoomMode的设置

⒋ShowGuides[=ShowGuidesSettings]：

返回或设置是否显示边距线

Constant

Value

Description

gdHide

0

从不显示

gdShow

1

总是显示

gdDesignTime

2

在设计时显示，这是默认值

⒌Navigation[=NavigationSettings]：

返回或设置文档是否提供导航接口（鼠标，鼠标轮或键盘）

Constant

Value

Description

vpnvNone

0

没有置的导航

vpnvMouse

1

以下鼠标命令可以导航

（1）单击拖动以滚动文档,

（2）shift加左右按钮的单击以翻页（3）control加左右按钮的单击以放大和缩小

vpnvWheel

2

以下鼠标轮命令可以导航

（1）滚动鼠标轮以滚动文档,

（2）shift加滚动鼠标轮以翻页（3）control加滚动鼠标轮以放大和缩小

vpnvMouseWheel

3

包括鼠标命令和鼠标轮命令

vpnvKeyboard

4

以下键盘命令可以导航

（1）光标键以滚动文档,

（2）PageUp/PageDown以翻页（3）control加光标键以放大和缩小

vpnvMouseKeyboard

5

包括鼠标命令和键盘命令

vpnvWheelKeyboard

6

包括鼠标轮命令和键盘命令

vpnvAll

7

包括鼠标命令、鼠标轮命令和键盘命令

⒍Zoom[=valueasdouble]返回或设置预览时显示比例的百分比

⒎ZoomMode[=ZoomModeSettings]返回或设置预览时的显示模式

Constant

Value

Description

zmPercentage

0

使用Zoom属性设置缩放比.

zmThumbnail

1

显示多页一英寸宽的页面来适应控件

zmTwoPages

2

显示紧靠着的两页整页，

zmWholePage

3

显示一页整页

zmPageWidth

4

显示一页，使其页宽适应控件

zmStretch

5

不管长宽比，伸展一页使其适应控件

默认值为：

zmWholePage（3）

⒏ZoomMax[=valueasinteger]：

返回或设置最大的放缩比，对置的鼠标、键盘放缩限制，对Zoom属性无效。

默认值为400

⒐ZoomMin[=valueasinteger]：

返回或设置最小的放缩比，对置的鼠标、键盘放缩限制，对Zoom属性无效。

默认值为10

⒑ZoomStep[=valueasinteger]：

返回或设置每次放缩的增量，对置的鼠标、键盘放缩有效，对Zoom属性无效。

默认值为25

⒒ProportionalBars[={True|False}]：

返回或设置滚动条的大拇指是否与可视区域成比例。

默认值为True

⒓Track[={True|False}]：

返回或设置当用户拖动滚动条的大拇指是否滚动文档。

默认值为False

⒔ScrollLeft[=valueasdouble]：

返回或设置可视区域的左坐标

⒕ScrollTop[=valueasdouble]：

返回或设置可视区域的上坐标

设置ScrollLef和ScrollTop可以控制滚动条，使得你可以决定预览页的哪一部分呈现在用户面前。

以下代码使在预览窗口显示页的中心部分

PrivateSubcmdCenter（）

Dimx,y

x=vp.PageWidth/2*（vp.Zoom/100）

y=vp.PageHeight/2*（vp.Zoom/100）

vp.ScrollLeft=x-（vp.Width-300）/2

vp.ScrollTop=y-（vp.Height-300）/2

EndSub

⒖LargeChangeHorz[=valueasdouble]：

返回或设置单击滚动条时，ScrollLef改变的数量，默认为300

⒗LargeChangeVert[=valueasdouble]：

返回或设置单击滚动条时，ScrollTop改变的数量，默认为300

⒘SmallChangeHorz[=valueasdouble]：

返回或设置单击滚动箭头时，ScrollLef改变的数量，默认为30

⒙SmallChangeVert[=valueasdouble]：

返回或设置单击滚动箭头时，ScrollTop改变的数量，默认为30

⒚Val%=ReadState：

返回控件的当前状态。

Constant

Value

Description

vpstEmpty

0

控件为空的，没有预览文档.

vpstLoading

1

控件正在从磁盘或URL装载一个文档.

vpstReady

2

控件已经有了一个预览文档可以被打印和保存了

vpstOpen

3

控件正在产生一个文档（StartDoc已调用,EndDoc没有）.

vpstSaving

4

控件正在保存一文档到磁盘文件

vpstPrinting

5

控件正在打印一文档

2、设备控制属性

（1）设备选择

⒈Preview（见前面）

⒉OutputFileName[=valueasstring]：

返回或设置将控件输出到一个打印机文件的名称，若设为空串“”则输出到打印机。

若Preview设为True，此属性无效。

⒊ExportFile[=valueasstring]：

返回或设置输出文件的名称。

⒋ExportFormat[=ExportFormatSettings]：

返回或设置输出文件的格式类型。

Constant

Value

Description

vpxPlainHTML

0

生成简单的HTML.这项结果存在压缩HTML，但丢失了某些段落格式

vpxDHTML

1

生成带标签风格的HTML.这项结果存在大HTML文件中,所有段落格式都包含

vpxPagedHTML

2

与vpxPlainHTML相似,但建立几个超HTML文件.

vpxPagedDHTML

3

与vpxDHTML相似,但建立几个超DHTML文件

vpxRTF

4

建立RTF输出.

⒌Divece[=valueasstring]：

返回或设置当前打印机的名称，在建立文档时不能设置，必须在StartDoc之前设置。

如果在EndDoc之后设置，必须重建文档

⒍Val%=Diveces（iasinteger）：

返回有效的打印机设备的名称，这是一个数组属性，以0为下标的基数

⒎Val%=Ndevices：

返回有效的打印机设备的数目

⒏DefaultDevice[={True|False}]返回或设置是否使Divece的设置改变windows世的缺省设置

Val$=Driver返回当前打印机的驱动程序名称。

（2）设备驱动设置

⒈PhysicalPage[={True|False}]返回或设置是否使用纸的物理尺寸去适应它的页面，设为False将使用逻辑尺寸。

逻辑尺寸比物理尺寸稍大，默认值为True

⒉Collate[=CollateSettings]返回或设置打印多份复制文档时是否使用分页，即是逐页打还是逐份打。

Constant

Value

Description

colFalse

0

不使用分页，即逐份打印

colTrue

1

使用分页打印，这种方式更快。

但不一定都能使用。

当Errorr返回vperDeviceIncapable（7）值时，表示不支持此方式

⒊ColorMode[=ColorModeSettings]返回或设置彩色打印机的颜色模式

Constant

Value

Description

cmMonochrome

1

黑白打印

cmColor

2

彩色打印

⒋Copies[=valueasinteger]返回或设置文档打印的份数，默认值为1

⒌Val%=DPI返回当前打印的分辨率，以点/英寸为单位

⒍Duplex[=DuplexSettings]返回或设置双向或双面打印

Constant

Value

Description

dupSimplex

1

单面打印

dupVertical

2

使用水平页翻转双面打印

dupHorizontal

3

使用垂直页翻转双面打印

⒎Orientation[=OrientationSettings]返回或设置纸的方向

Constant

Value

Description

orPortrait

0

纵向

orLandscape

1

横向

⒏PaperBin[=PaperBinSettings]返回或设置当前纸盒

Constant

Value

Description

binUpper

1

纸来源于上面纸盒.

binLower

2

纸来源于下面纸盒.

binMiddle

3

纸来源于中间纸盒.

binManual

4

手动进纸.

binEnvelope

5

信封来源于信封送约器

binEnvManual

6

信封来源于信封送约器,但手动进纸

binAuto

7

纸来源于当前缺省纸盒

binTractor

8

纸来源于牵引送纸器

binSmallFmt

9

纸来源于小纸盒

binLargeFmt

10

纸来源于大纸盒

binLargeCapacity

11

纸来源于大容量进纸器

binCassette

14

附加的纸盒筒

binFormSource

15

纸来源于连续打印纸

binUser

256

自定义纸盒

⒐Val%=PaperBins（PaperBinasPaperBinSettings）返回给定的纸盒是否有效

⒑PaperSize[=PaperSizeSettings]返回或设置当前标准纸的尺寸

Constant

Value

Description

pprLetter

1

Letter,8½x11in.

pprLetterSmall

2

LetterSmall,8½x11in.

pprTabloid

3

Tabloid,11x17in.

pprLedger

4

Ledger,17x11in.

pprLegal

5

Legal,8½x14in.

pprStatement

6

Statement,51/2x81/2in.

pprExecutive

7

Executive,71/2x101/2in.

pprA3

8

A3,297x420mm

pprA4

9

A4,210x297mm

pprA4Small

10

A4Small,210x297mm

pprA5

11

A5,148x210mm

pprB4

12

B4,250x354mm

pprB5

13

B5,182x257mm

pprFolio

14

Folio,8½x13in.

pprQuarto

15

Quarto,215x275mm

ppr10x14

16

10x14in.

ppr11x17

17

11x17in.

pprNote

18

Note,8½x11in.

pprEnv9

19

Envelope#9,37/8x87/8in.

pprEnv10

20

Envelope#10,41/8x9½in.

pprEnv11

21

Envelope#11,4½x103/8in.

pprEnv12

22

Envelope#12,4½x11in.

pprEnv14

23

Envelope#14,5x11½in.

pprCSheet

24

Csizesheet

pprDSheet

25

Dsizesheet

pprESheet

26

Esizesheet

pprEnvDL

27

EnvelopeDL,110x220mm

pprEnvC5

28

EnvelopeC5,162x229mm

pprEnvC3

29

EnvelopeC3,324x458mm

pprEnvC4

30

EnvelopeC4,229x324mm

pprEnvC6

31

EnvelopeC6,114x162mm

pprEnvC65

32

EnvelopeC65,114x229mm

pprEnvB4

33

EnvelopeB4,250x353mm

pprEnvB5

34

EnvelopeB5,176x250mm

pprEnvB6

35

EnvelopeB6,176x125mm

pprEnvItaly

36

Envelope,110x230mm

pprEnvMonarch

37

EnvelopeMonarch,37/8x7½in.

pprEnvPersonal

38

Envelope,35/8x6½in.

pprFanfoldUS

39

U.S.StandardFanfold,147/8x11in.

pprFanfoldStdGerman

40

GermanStandardFanfold,8½x12in.

pprFanfoldLglGerman

41

GermanLegalFanfold,81/2x13in.

ppr*

42-68

Less-commoninternationalsizes.

pprUser

256

自定义尺寸.使用PaperWidth和PaperHeight属性设置

⒒Val%=PaperSizes（PaperSizeasPaperSizeSettings）返回给定纸的尺寸在当前打印机上是否有效

⒓PaperWidth[=valueassingle]返回或设置当前纸的物理宽度。

如果是设置，PaperSize将自动变为pprUser（256）成为自定义的纸。

⒔PaperHeight[=valueassingle]返回或设置当前纸的物理高度。

如果是设置，PaperSize将自动变为pprUser（256）成为自定义的纸。

⒕PrintQuality[=PrintQualitySettings]返回或设置打印质量

Constant

Value

Description

pqDraft

-1

尽可能低的分辨率

pqLow

-2

低分辨率

pqMedium

-3

中分辨率

pqHigh

-4

尽可能高的分辨率

Other

>0

指定分辨率（点每英寸）

⒖**ResetDC事件

⒗ScaleOutput[=valueasinteger]返回或设置打印输出的百分比

⒘TrueType[=TrueTypeSettings]返回或设置TrueType字体如何被打印

Constant

Value

Description

ttBitmap

1

用位图打印

ttDownload

2

从软件字库下载TrueType字体

ttSubDevice

3

用设备字体代替TrueType字体.

ttOutline

4

用矢量图形打印.

⒙ReadState（见前面）

3、文档规划属性

（1）页面大小

⒈Orientation,PhysicalPage,见前面

⒉Val#=PageWidth返回页面的宽度，取决于PaperSize，Orientation，PhysicalPage等属性的设置

⒊Val#=PageHeight返回页面的高度，取决于PaperSize，Orientation，PhysicalPage等属性的设置

（2）页面设计

⒈MarginLeft[=valueasvariant]返回或设置左边距，以twips为单位，默认为1440

⒉MarginRight[=valueasvariant]返回或设置右边距，以twips为单位，默认为1440

⒊MarginTop[=valueasvariant]返回或设置上边距，以twips为单位，默认为1440

⒋MarginBottom[=valueasvariant]返回或设置下边距，以twips为单位，默认为1440

可使用其它单位

符号

单位

没有

缺省单位（缇,除了LineSpacing属性）.

in,"

英寸

twip

缇（onetwip=1/20thofapoint）.

pt,point

点

cm

厘米

mm

毫米

pix

像素

%

百分比

例如：

vp.MarginLeft=1440'nounits,assumetwips

vp.MarginLeft="1in"'oneinch

vp.MarginLeft="62pt"'62points

vp.MarginLeft="2.3cm"'2.3centimeters

⒌**GetMargins方法

⒍Columns[=valueasinteger]返回或设置一页中的栏数,默认值为1

⒎ColumnSpace[=valueasvariant]返回或设置一页中的栏间距，默认值为180

⒏Val%=PageCount返回当前文档总页数

⒐PageBorder[=PageBorderSettings]返回或设置每页边框的类型

constant

value

pbNone

0

没有

pbBottom

1

底下有

pbTop

2

上面有

pbTopBottom

3

底下、上面都有

pbBox

4

四周都有

pbColumns

5

栏间有

pbColTopBottom

6

栏间、上下都有

pbAl

7

全有

pbColTop

8

栏间、上面有

pbColBottom

9

栏间、下面有

（3）页眉和页脚

⒈Head