DELPHI 5编程实例及技巧007.pdfVIP

下载 第7章 打 印 打印是应用程序通常具备的功能之一。在前面的章节中已经接触到打印方面的一些内容， 本章将进一步对打印有关的操作进行探讨。 在Wi n d o w s环境中实现打印功能非常方便：只要将需要打印的内容送往打印机，同时做一 些必要的控制就可以了。至于如何控制种类繁多的打印机，这全由相应的打印机驱动程序来完 成。 本章主要介绍下面的一些方法来实现打印输出： • 一些简单的打印输出。 • 使用全局变量P r i n t e r 。 • 使用Windows API 函数。 7.1 一些简单的打印输出 通过下面的一些方法可以实现简单的打印输出： (1) 调用T F o r m . P r i n t和T R i c h E d i t . P r i n t过程 T F o r m . P r i n t过程实现的功能是：将窗体作为图形送往打印机输出。过程原型如下： procedure Print; virtual; T R i c h E d i t . P r i n t过程实现的功能是：将R i c h E d i t组件中的内容按指定的格式送往打印机输出。 过程原型如下： procedure Print(const Caption: string); virtual; 一个简单的例程可以如下： 在窗体中添加一个B u t t o n 组件和一个R i c h E d i t组件，然后添加B u t t o n组件的O n C l i c k事件的 处理过程： procedure TForm1.Button1Click(Sender: TO b j e c t ) ; b e g i n Print; // 打印当前窗体 R i c h E d i t 1 . P r i n t ( 一个小例程 ) ; // 打印输出R i c h E d i t组件中的内容 e n d ; (2) 调用AssignPrn 、Wr i t e或Wr i t e l n等过程 在第6章“文件、目录和驱动器”中，在介绍 A s s i g n P r n 函数的时候，有一个小例程，就是 调用A s s i g n P r n过程和Wr i t e l n过程，将文本内容直接送往打印机输出。 注意，如果连续调用两个 Wr i t e l n 过程向打印机输出时，两个输出内容之间会自动另起一 行；而连续调用两个 Wr i t e 过程时，两个输出内容将紧接在一起。如果在按回车键前，输出的 内容已经满了一行，则这两个函数都会自动换行。 7.2 TPrinter对象和TScreen对象 D e l p h i 中的T P r i n t e r类可以方便地实现通常的打印任务。通过 P r i n t e r全局函数可以返回 第7章章打 印章名157 下载 T P r i n t e r类的一个对象，该对象在 P r i n t e r s单元中定义。可以把 P r i n t e r全局函数看作一个全局变 量，并利用这个全局变量来与打印机进行打印操作。 利用P r i n t e r来实现打印的一般过程如下： 1) 调用B e g i n D o c过程向打印机发送一个打印作业(此时还没有在打印机上开始打印) 。 2) 通过一个Te x t变量或调用C a n v a s对象方法建立打印输出。 3) 调用E n d D o c过程结束当前的打印作业，该打印作业开始在打印机上打印。 4) 如果出现问题，调用A b o r t过程取消当前打印的作业。 下面是T P r i n t e r类的几个常用属性： • Aborted 判断是否中止打印作业。 • Canvas 画布属性。 • Capabilities 当前打印机驱动设备的设置信息。 • Copies 打印的份数。