在DELPHI文本和图形的打印_Deiphi打印编程_Deiphi_编程开发

在DELPHI文本和图形的打印

日期：2008-10-20 21:42:14　　　　来源：互联网

　·一个判断定文件是否为文本文件的函数　·Delphi编程的图形显示技巧
　·自定义报表打印预览窗口

对于每一个WINDOWS 应用程序开发者来说，打印功能的实现都是极为棘手的，因为要涉及到相当多的代码而且常常是相当的复杂，但是在DELPHI 中实现文本和图象的打印功能却是非常容易的。
       1、文本的打印功能。DELPHI 中文本的打印功能就如同在DOS 中实现文本的打印功能一样容易，需要做的一切只是取得打印参数，打开打印机，然后发送文本的每一行内容。在DELPHI 中提供了一个PRINTERS 程序单元，它说明了一个TPRINTER 对象，封装了WINDOWS 打印工作和输出打印机之间的接口，并提供常用的属性和方法，其中画布CANVAS 是一个非常有用的属性，它代表了当前打印文件的表面，是以图形方式来工作的，整个的打印输出工作仅仅是将你打印的内容输出到TPRINTER 的属性CANVAS 上，当全部的输出工作完成以后，打印对象（TPRINTER）把CANVAS 的属性值送到打印机上去。

       下面举例来说明如何通过DELPHI 实现文本内容的打印。在DELPHI 中提供了PRINTDIALOG、PRINTERSETUPDIALOG 两个控件允许我们进行打印机以及其他影响打印输出的选择，此外最重要的一点是要想实现打印功能必须在编译程序以前将PRINTERS 加入到INTERFACE 或者IMPLEMENTATION 的UESE 语句当中，因为PRINTER 单元包括ASSIGNPRN 和其他控制打印机的过程。

       首先在FORM 当中加入MEMO、PRINTDIALOG、PRINTERSETUPDIALOG 和两个BUTTON 控件，两个 BUTTON 的CAPTION 分别为“ 打印设置” 和“ 打印”。然后编写BUTTON 的事件驱动程序（代码在下面），这个简单的例子中只要单击“ 打印” 按钮时便可以在打印机上输出文件0S2.TXT，打印事件的清单如下：

implementation

uses printers;

{$R *.DFM}

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

printersetupdialog1.execute;  file://选择输出的打印机以及其他打印控制选项

end;

procedure TForm1.BitBtn2Click(Sender: TObject);

var

lines:integer;

prntext:system.text;

file://将PRNTEXT声名为一个在SYSTEM程序单元当中定义的文本文件

begin

   if printdialog1.execute then

   assignprn(prntext); file://将PRNTEST分配给打印机

   rewrite(prntext); file://调用REWRITE函数，为输出打开已分配的文件

   printer.canvas.font:=memo1.font;

   file://把当前MEMO1的字体指定给打印对象的CANVAS的字体属性

   for lines:=0 to memo1.lines.count-1 do

   writeln(prntext,memo1.lines[lines]);

   file://把MEMO的内容写到打印机对象

   system.close(prntext); file://关闭打印文件

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

memo1.lines.loadfromfile('c:\dos\os2.txt');

file://在FORM建立时读入C:\DOS\OS2.TXT文件

end;

end.
       2、图形的打印功能, 简单的图形打印功能也如打印文本一样的容易，只是告诉打印机对象（TPRINTER）开始打印，把图形简单的复制到打印机上去，最后告诉打印机结束打印工作。
       举例说明：将上面的例子的MEMO 控件换成IMAGE 控件，再经过一些简单的修改，图形打印的代码如下：

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

if printdialog1.execute then begin

printer.begindoc;

printer.canvas.draw(0,0,image1.picture.graphic);

printer.enddoc;

end;

end;
       在这种情况下，使用的是打印机的分辨率，图形在页面的左上角开始打印输出，打出的图形很小，在很多的情况下不能符合要求，但是打印机画布CANVAS 的STRETHDRAW 的方法，可以让我们对图形进行灵活的处理，画布（CANVAS）的STRETCHDRAW 方法声名为：
procedure StretchDraw(const Rect: TRect; Graphic: TGraphic);

其中的RECT参数代表图形输出区域的大小，TRECT的类型声名为：

TRect = record

  case Integer of

  & 1: (TopLeft, BottomRight: TPoint);

end;
       因此我们只要调整RECT 的大小及其在打印页面上的位置，进而达到自己满意的效果，下面的代码是不断的放大图形，充满我们定义的矩形区域，并将其定位在打印机画布（CANVAS）的中央进行输出。代码如下：
procedure TForm1.Button1Click(Sender: TObject);

VAR

strect:Trect;    file://定义打印输出矩形框的大小

temhi,temwd:integer;

begin

if printdialog1.execute then

   begin

   temhi:=image1.picture.height;

   temwd:=image1.picture.width;

      while (temhi printer.pageheight div 2)and

            file://将图形放大到打印页面的1/2大小

         (temwd printer.pagewidth div 2)   do

              begin

              temhi:=temhi+temhi;

              temwd:=temwd+temwd;

              end;

         with strect do    file://定义图形在页面上的中心位置输出

              begin

              left:=(printer.pagewidth -temwd) div 2;

              top:=(printer.pageheight-temhi) div 2;

              right:=left+temwd;

              bottom:=top+temhi;

              end;

   with printer do

   begin

   begindoc;

   canvas.stretchdraw(strect,image1.picture.graphic);

               file://将放大的图形向打印机输出

   enddoc;

   end;

end;

end;
       以上代码在DELPHI2.0 上编译通过，通过这些小小的例子，相信大家对于在DELPHI 中打印图形和文本有一定的了解，同样通过打印机的画布（CANVAS）属性也可以实现数据库表单的打印，在这里不一一赘述，如果大家有兴趣不妨　[1]

--->Visual Graph专业图形引擎 V4.6
--->草堂书童--新式文本编辑器(语音型) v2.0 注册机
--->多行文本替换工具 V1.00_简体中文绿色版_可替换多行文字、支持各种格式
--->南天之汉化小助手 1.0┊将语言包文件转换成标准三行文本┊简体中文绿色免费版
--->Emurasoft EmEditor Professional 6.00.4┊强大的文本编辑工具┊汉化绿色下载站免安装版
Tags:　文本图形打印 {$enumber$}

在DELPHI文本和图形的打印

文本数据导入数据库的方法

对DELPHI图形编辑技巧二则

获取打印机队列的状态信息

◎→	本类最新
用好Delphi的打印技能的编程技巧

◎→相关资源
C语言入门视频教程 C#编程WinForm入门视频 Asp.net入门视频教程下载 VC++编程视频教程下载 VB窗体文章 HTML入门教程 Deiphi实例教程 Deiphi窗体文章 Deiphi数据库编程 Deiphi网络编程 Deiphi图形图象文章 Deiphi系统文件

◎→	热门资源
在delphi中使用flash控件在Delphi中实现图片的旋转、缩放在Delphi中实现数据分析模块的动在Delphi中实现多重查询在Delphi中实现动态字幕在Delphi中实现对目录拷贝、删除在Delphi中实现ASP编程