vsPrinter控件的使用.doc

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 详细说明 用户接口属性 控件外观 ⒈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]：返回或设置缺省中断对话框的标题，默认值为：Printing... ⒐AbortTextButton[=value as string]：返回或设置缺省中断对话框中按钮的标题，默认值为：Cancel ⒑AbortTextDevice[=value as string]：返回或设置缺省中断对话框中设备字串的标题，默认值为：on the %s on %s，第一个%s代表设备名，第二个%s代表端口名。 ⒒AbortTextPage[=value as string]：返回或设置缺省中断对话框中页字串的标题，默认值为：Now printing Page %d of，%d代表当前页号 预览 ⒈Preview[={True|False}]：返回或设置输出是存为预览还是直接打印，默认值为True ⒉PreviewPage[=value as integer]：返回或设置当前预览的页号 ⒊Val%=PreviewPages：返回当前在预览屏幕中的页数，这取决于ZoomMode的设置 ⒋ShowGuides[=ShowGuidesSettings]：返回或设置是否显示边距线 Constant Value Description gdHide 0 从不显示 gdShow 1 总是显示 gdDesignTime 2 在设计时显示，这是默认值 ⒌Navigation[=NavigationSettings]：返回或设置文档是