打印机表单的动态设置研究与实现

《打印机表单的动态设置研究与实现》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、赵振江王淮中（沈阳化工学院计算机科学与技术学院沈阳110142）［摘要］针式打印机打印分为分页打印和连续不分页打印，但利用Printer对彖在不同的操作系统下进行打印设计差异较大，尤其是动态设置打印纸的类型，及动态改变打印纸的长度。在Windows98下叫以很简单的利用Printer.Width和Printer.Height进行设置，但在Windows2000及XP下却相当困难。［关键词］Printer动态设置连续不分页打印分页打印；一、简介打印是很多应用程序屮都需要的功能，也是开发的一个难点所在，尤其是要求连续打印长度任意的表

2、单，并且要求打印完不走纸的情况。类似这样的打印任务因其长短不一，需要在程序中自动计算出单据的长度并口动设定相应的纸张。在VB下使用Printer对彖对针式打印机进行打印程序设计时，因操作系统不同导致设计方法也不相同，在Windows98中将Printer.PaperSize设为256（自定义大小）,再通过Printer.Height、Printer.Width设为所要求的值即可实现，而Win2000/XP下Printer.PaperSize=256却提示“无效属性值"，也就无法完成所要求的功能。二、打印机页形设置原理在运彳亍Wi

3、ndows95>Windows98或WindowsMe系统上，可以用高度（长度）和宽度或预定义的纸张大小来定义自定义页面大小。基于WindowsNT或Windows2000及XP的系统仅使用定义的页形來指定页面人小。纸张的人小由DevMode结构的四个属性决定：dmPaperSizeAsIntegerdmPaperLengthAsIntegerdmPaperWidthAsIntegerdmFormNameAsString*CCHFORMNAME其中dmFormName用于NT系统中指定打印纸张大小为预定义的某个纸张（Form），

4、但是VB的Printer对象不支持FormName属性,故只能通过API函数修改DevMode结构的dmFormName属性实现口定义打印。在WindowsNT或Windows2000及XP系统上使用特定的纸张大小，则必须为其定义一个页形。VB中的Printer对象具冇PageSize>Height和Width属性，对应于DEVMODE的dmPaperSize>dmPaperLength和dmPaperWidth成员。但是Printer对彖未捉供按名称选择页形的方式，而月•也未捉供在运行时添加自定义页形的方法，所以必须使用Win

5、32应用程序编程接口（API）来创建自定义贝形或按名称选择页形。在自定义页形时，使用的打印机表单描述结构FORM」NFO_1定义如下：TypeFORM_INFO_1FlagsAsLongpNameAsLongSizeAsSIZELImageableAreaAsRECTEndType表］FlagsLong,如表单内建到打印机，则为常数FORMBUILTINpNameLong,表单的名字SizeSIZEL,以千分Z—毫米为单位的打印媒介尺寸ImageableAreaRECT,可以绘图的实际区域，以千分之一毫米为单位SIZPublic

6、TypeSIZELexAsLongcyAsLongEndType其中ex、cy为实际所要定义的打卬纸尺寸。在自定义页形吋，使用Win32应用程序编程接口（API）如下：OpenPrinter：打开指定的打印机，并获取打印机的句柄。DeleteForm:从打印机可用表单列表中删除一个表单。AddForm：为打印机的表单列表添加一个新表单。EnumForms:枚举一台打印机可用的表单。GetPrinter:取得与指定打印机有关的信息。SetPrinter：对一台打印机的状态进彳亍控制。CopyMemory：将从源指针所指处开始的长度

7、为Length的内存拷贝到口的指针所指的内存处。三、打印设计Printer对象是一个独立于打印机设备的封装，它可以代表不同的打印机，初始时Printer对象为系统缺省的打印机。（-）分页打印利用Printer对象开发的打印程序主要靠其提供的NewPage（打印新的一页），CurrentX>CurrentY（置为新页的左上角，可完成多页功能），EndDoc（将打卬任务加入打印机队列）,KillDoc（取消打印任务）来控制打印过程。一般情况下，打印程序完成多页打印时会多次执行NewPage,结束时执彳亍一次EndDoc将打印任务加入

8、打印机队列。在进行分页打卬时先确定每页打卬的行数，根据行数确定能打印的页数，同时给出Printer.CurrentX,Printer.CurrentY,使用Printer.Print进行打印,当一页满以后使用Printer.NewPage来确定本页打印完毕换页。