vsPrinter控件的使用

vsPrinter控件的使用

一、 一般使用的步骤

WITH Thisform.vsPrinter

（一）Set up Device （设置设备）

.Preview=True

.Device= “Epson LQ-1900K” .ExportFile=”C:\\mydocus\\test.rtf” .ExportFormat=vpxRTF

（二）Set up Document （设置文档）

.Font=”Tahoma” .FonSize=9

.Header=”Test| |page %d” .MarginLeft=”1in”

（三）Start Document （开始文档）

.StartDoc

（四）Generate Document （产生文档）

For i=0 to 1

.Paragraph=”Hello,World1”+str(i) if .Error<> then exit endif endfor

（五）End Document （结束文档）

.EndDoc

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

.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[=value as string]：返回或设置缺省中断对话框的标题，默认值为：\⒐AbortTextButton[=value as string]：返回或设置缺省中断对话框中按钮的标题，默认值为：\

⒑AbortTextDevice[=value as string]：返回或设置缺省中断对话框中设备字串的标题，默认值为：\，第一个%s代表设备名，第二个%s代表端口名。

⒒AbortTextPage[=value as string]：返回或设置缺省中断对话框中页字串的标题，默认值为：\，%d代表当前页号 （2） 预览

⒈Preview[={True|False}]：返回或设置输出是存为预览还是直接打印，默认值为True ⒉PreviewPage[=value as integer]：返回或设置当前预览的页号

⒊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)

vpnvWheel 2

vpnvMouseWheel vpnvKeyboard 3 4

vpnvMouseKeyboard vpnvWheelKeyboard vpnvAll 5 6 7

control加左右按钮的单击以放大和缩小 以下鼠标轮命令可以导航(1) 滚动鼠标轮以滚动文档, (2) shift加滚动鼠标轮以翻页 (3) control加滚动鼠标轮以放大和缩小 包括鼠标命令和鼠标轮命令

以下键盘命令可以导航(1) 光标键以滚动文档, (2) PageUp/PageDown以翻页 (3) control加光标键以放大和缩小

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

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

⒍Zoom[=value as double]返回或设置预览时显示比例的百分比 ⒎ZoomMode[=ZoomModeSettings] 返回或设置预览时的显示模式

Constant Value Description zmPercentage 0 使用 Zoom 属性设置缩放比. zmThumbnail 1 显示多页一英寸宽的页面来适应控件 zmTwoPages 2 显示紧靠着的两页整页， zmWholePage 3 显示一页整页 zmPageWidth 4 显示一页，使其页宽适应控件 zmStretch 5 不管长宽比，伸展一页使其适应控件 默认值为：zmWholePage（3）

⒏ZoomMax[=value as integer]：返回或设置最大的放缩比，对内置的鼠标、键盘放缩限制，对Zoom属性无效。默认值为400

⒐ZoomMin[=value as integer]：返回或设置最小的放缩比，对内置的鼠标、键盘放缩限制，对Zoom属性无效。默认值为10 ⒑ZoomStep[=value as integer]：返回或设置每次放缩的增量，对内置的鼠标、键盘放缩有效，对Zoom属性无效。默认值为25

⒒ProportionalBars[={True|False}]：返回或设置滚动条的大拇指是否与可视区域成比例。默认值为True

⒓Track[={True|False}]：返回或设置当用户拖动滚动条的大拇指是否滚动文档。默认值为False

⒔ScrollLeft[=value as double]：返回或设置可视区域的左坐标 ⒕ScrollTop[=value as double]：返回或设置可视区域的上坐标

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

以下代码使在预览窗口显示页的中心部分 Private Sub cmdCenter() Dim x, 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

End Sub

⒖LargeChangeHorz[=value as double]：返回或设置单击滚动条时，ScrollLef改变的数量，默认为300

⒗LargeChangeVert[=value as double]： 返回或设置单击滚动条时，ScrollTop改变的数量，默认为300

⒘SmallChangeHorz[=value as double]：返回或设置单击滚动箭头时，ScrollLef改变的数量，默认为30

⒙SmallChangeVert[=value as double] ：返回或设置单击滚动箭头时，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[=value as string]：返回或设置将控件输出到一个打印机文件的名称，若设为空串“”则输出到打印机。若Preview设为True，此属性无效。 ⒊ExportFile[=value as string]：返回或设置输出文件的名称。

⒋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[=value as string]：返回或设置当前打印机的名称，在建立文档时不能设置，必须在StartDoc之前设置。如果在EndDoc之后设置，必须重建文档

⒍Val%=Diveces(i as integer)：返回有效的打印机设备的名称，这是一个数组属性，以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[=value as integer]返回或设置文档打印的份数，默认值为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 附加的纸盒筒

本文来源：https://www.bwwdw.com/article/vfbt.html