VB控制打印机

VB控制打印机2013-05-1710:48:17|分类：默认分类|字号订阅(转载）1．简介VisualBasic（VB）给用户提供了可视化编程环境，因其简单易学、功能强大而得到了广泛的应用。VB提供了两种实现打印的办法。一般在对打印品质规定不高的场合，或者是编程项目的早期开发过程中，可以直接使用VB窗体的Printform办法实现打印。用这种办法实现打印具有编程简单、易用并且功能强大的优点，它只需要通过一行代码，基本上能打印所有内容。实现的办法就是：首先将要打印的内容在屏幕上呈现出来,然后开发人员只要为窗体对象激活PrintForm，窗体则自动将要打印的内容发送到Printer对象上，其语法格式如下：[窗体.]PrintForm。如果窗体中包括图形，那么打印前应先置窗体的AutoRedraw属性为真。这种办法虽然简单，但是它却存在着内存消耗大、打印粗糙、速度慢等缺陷，尤其对于带有滚动条的图像，这种办法只能打印当前可视的区域。在现实应用中频繁会遇到对打印品质规定很高的场合，例如打印音乐五线谱，对打印的美观、清晰度以及音符符头的位置都有很严格的规定，这种应用场合若采用VB提供的另一种基于Printer对象的打印办法则可以获得高分辨率的打印，得到很高的打印品质。在现实应用中，也可以根据现实应用情况将上述两种办法结合起来使用，即：前期工作使用PrintForm简单的打印办法将窗体的布局定下来，后期再使用基于Printer对象的打印办法实现最终的打印工作。2．高分辨率打印程序开发心得⑴Printer对象VB的打印可以使用Printer对象。Printer对象是一个****于打印机设备的封装，它可以代表不一样的打印机，初始时，Printer对象为系统缺省的打印机，也可以使用下列语句：SetPrinter=Printers(2)(其中2代表Printers集中的第二个打印机)对打印机开展规定。Printer对象具备例如：ColorMode、Copies、Duplex、Printquality等控制打印机特征的属性，提供了Newpage、EndDoc、KillDoc等控制打印过程的办法，以及大多数由窗体和图片框控件提供的图形属性和办法如：Currentx、Currenty、Textwidth、Textheight、Print、Pset、Line、PaintPicture和Circle等办法，它还拥有Font的所有属性。实现高分辨率的打印就是通过控制Printer对象的上述属性和办法完成的。⑵直接利用Windows公用标准对话框CommonDialog控件【打印】VB为用户提供了Windows公用标准对话框CommonDialog控件：【打开】、【文件另存为】、【颜色】、【字体】、【打印】。CommonDialog控件在VisualBasic和MicrosoftWindows动态连接库Commdlg.dll例程之间提供了接口。利用公用标准对话框【打印】开发VB的打印程序，将大大缩短程序的开发周期。应用程序中要使用公用对话框，必须首先在工具箱中添加公用对话框控件。该动作通过激活【部件】对话框，选中MicrosoftCommonDialogControl6.0,单击【确定】即可。然后再将公用控件添加到窗体上并设置相应属性，该控件具有的属性有Color、Font、Print、Help等。VB提供mnuFilePrint_Click（）过程供用户添加开发的打印程序代码。⑶Printer对象控制打印的基本过程利用Printer对象开发的打印程序主要靠其提供的——NewPage（打印新的一页，CurrentX、CurrentY置为新页的左上角，可完成多页功能。）、EndDoc（将打印任务加入打印机队列）、KillDoc（取消打印任务）控制打印过程的。一般情况下，打印程序完成多页打印时会多次执行NewPage，完毕时执行一次EndDoc将打印任务加入打印机队列。如果你在NewPage后，立即使用EndDoc，VB则不会打印额外的空白页。如果希望呈现空白页，则可在新的一页上只使用Printer.Print““打印空字符即可。为了通过Printer对象实现文本和图形的打印，获得最好的打印品质，还需要对VB控制打印机的多种属性有更深入的理解，例如打印机的坐标体系向屏幕坐标体系的转换、打印机字体尺寸的确定等。下面给出了打印程序的主框架：PrivateSubmnuFilePrint_Click()OnErrorResumeNextIfActiveFormIsNothingThenExitSubWithdlgCommonDialog‘打印机公用对话框.DialogTitle=打印.CancelError=True.Flags=1Printer.FontSize=dlgCommonDialog.FontSize‘将打印机公用对话框设置的字体大小传递给打印机.ShowPrinter‘在屏幕上呈现【打印】公用对话框IfErrMSComDlg.cdlCancelThenPrinter.FontTransparent=False‘初始化打印的字体为不透明SetPrinterScaleMyform‘匹配打印机的缩放属性与窗体的属性PrintAnywherePrinter‘可放置用户编写的打印对象参数化例程‘实现字符和图形的呈现Printer.NewPage‘打印机坐标初始化PrintAnywherePrinter‘打印另一页的内容Printer.NewPage‘打印机坐标初始化Printer.EndDoc‘将该任务加入打印机任务队列‘不打印空白页Printer.KillDoc‘取消当前的打印任务EndIfEndWithEndSubmwM无忧研修网⑷参数化绘图程序用VB开发应用程序时，如果使用参数化绘图例程开展屏幕呈现程序的开发，则在开发打印程序时，就不需再另行开发代码，从而避免了大部份的重复劳动，有效地缩短了程序的开发周期。参数化绘图例程就是：在开发例程时，为每一个例行程序提供一个OBJECT类型的参数，调用程序通过向例程的OBJECT类型参数分别传递窗体、Printer对象，就可分别完成屏幕呈现与打印机输出。见如下示例：SubPrintAnywhere（DestAsObject）Dest.Print“HELLO!”DestIsPrinterThenPrinter.EndDocEndIfEndSub要完成屏幕上的输出，调用PrintAnywhereMyform即可，而调用PrintAnywherePrinter则完成在打印机上输出。⑸属性匹配与窗体缩放因为控制打印机现实绘图区域大小的属性Height和Width，由目前正在使用的纸张决定，而且可打印的区域与纸张边缘有一定距离。因而为了获得正确的打印输出结果，不能简单地将Printer对象直接传递给绘图例行程序，还必须要解决打印机的缩放属性与呈现窗体属性相匹配的问题。即：保证使窗体中的打印内容以正确的大小呈现，并居于可打印区域的中间。现实上实现的是打印机的坐标体系向屏幕坐标体系的转换。具体过程是：使用打印机的ScaleX和ScaleY办法，获取以twip为企业的打印机尺寸，再利用窗体的ScaleX和ScaleY办法将这些尺寸转换为窗体中的坐标系统，从而实现以窗体的坐标系统提供打印机可打印区域大小的目的。然后，用这些尺寸作为打印机中新的ScaleWidth和ScaleHeight，即可实现属性匹配。但是，我们在打印时，频繁会遇到这样的场合——在不改变窗体形状的情况下，需要扩大或缩小窗体的大小。要完成这样的工作，不仅需要完成属性匹配，还要确定对象被缩放的系数。程序如下：PrivateSubSetPrinterScale(objAsObject)DimpwidAsSingle,phgtAsSingle,xmidAsSingle,ymidAsSingleDimowidAsSingle,ohgtAsSingleowid=obj.ScaleX(obj.ScaleWidth,obj.ScaleMode,vbTwips)ohgt=obj.ScaleY(obj.ScaleHeight,obj.ScaleMode,vbTwips)‘获取窗体以Twips表示的尺寸pwid=Printer.ScaleX(Printer.ScaleWidth,Printer.ScaleMode,vbTwips)phgt=Printer.ScaleY(Printer.ScaleHeight,Printer.ScaleMode,vbTwips)‘获取打印机以Twips表示的尺寸If(ohgt/owidphgt/pwid)Thens=phgt/ohgtElses=pwid/owidEndIf‘计算缩放因子pwid=obj.ScaleX(pwid,vbTwips,obj.ScaleMode)/sphgt=obj.ScaleY(phgt,vbTwips,obj.ScaleMode)/s‘将打印机的尺寸转换成obj的坐标系统/缩放因子x_mid=obj.ScaleLeft+obj.ScaleWidth/2y_mid=obj.ScaleTop+obj.ScaleHeight/2‘设置打印区域的中心点坐标Printer.Scale(x_mid-pwid/2,y_mid-phgt/2)-(x_mid+pwid/2,y_mid+phgt/2)‘设置打印机中新的ScaleWidth和ScaleHeightEndSub⑹坐标定位窗体、图片框控件以及Printer对象提供的TextWidth和TextHeight办法在文本定位的应用地方很有用。TextWidth、TextHeight分别以对象当前的刻度企业返回字符串的宽度和高度。但是必须注意不少字体中其字符宽度并不全部相同，所以不能简单地将单个字符的宽度乘以字符数来获得字符串的宽度。对那些没有TextWidth和TextHeight的控件可通过设置父窗体的Font属性，使其与该控件的属性相匹配，再利用父窗体的TextWidth和TextHeight获得它的字符串的宽度和高度。但是，我们在完成屏幕呈现程序调试后，在开展打印输出时却出现了屏幕呈现与打印结果的不一致性的现象，表现在所打印的字体之间坐标关系与屏幕呈现不一样，例如：屏幕呈现上的两个字符不重叠，而打印出的字符却出现相互重叠的现象。经调试发现，问题出现在字体尺寸的确定上。程序中，屏幕上呈现的字符坐标是通过对象的TextWidth和TextHeight办法计算得来的，它直接受到字体尺寸大小的影响。VB向用户提供的字体是在用户需要的打印机点的范围内，如果你需要的字体大小为73点，则打印出的现实字体大小为72.75。然而窗体、图片框控件的Fontsize只能是整数，例如它不能将字体的大小定为72.75，现实上这就造成了屏幕上呈现字体与现实打印字体大小之间产生了误差。我们采用如下办法来解决该问题，就是在计算字体大小时，根据计算出来的字体尺寸，确定它存在的范围，然后再将它定位到VB提供的几种固定大小的字体上，而不是随意规定。当然，也可以有其它的解决办法。例如：字体大小选取偶数等。由于篇幅所限，这里不再作介绍。以上是笔者在总结现实应用工作中的一些心得与体会，希望本篇文章能对首次使用VB开发打印程序的设计人员有所帮助。