荔园在线

荔园之美,在春之萌芽,在夏之绽放,在秋之收获,在冬之沉淀

[回到开始] [上一篇][下一篇]


发信人: Minatl (Minatl), 信区: Program
标  题: Delphi文本和图形的打印
发信站: BBS 荔园晨风站 (Wed Jan 20 19:00:27 1999), 转信




--------------------------------------------------------------------------------

1997年 .第30期 .软件与编程版

编程技巧


--------------------------------------------------------------------------------

--------------------------------------------------------------------------------

Delphi文本和图形的打印
李旭东

对于每一个Windows应用程序开发者来说,打印功能的实现都是极为棘手的,因为要涉及到相
当多的代码,而且常常是相当复杂,但是在Delphi中实现文本和图像的打印功能却是非常容易
的。

文本的打印功能
Delphi中文本的打印功能就如同在DOS中一样容易,需要做的只是取得打印参数,打开打印机
,然后发送文本的每一行内容。在Delphi中提供了一个printers程序单元,它说明了一个
tprinter对象,封装了Windows打印工作和输出打印机之间的接口,并提供常用的属性和方法
。其中画布canvas是一
个非常有用的属性,它代表了当前打印文件的表面,是以图形方式来工作的,整个打印输出工
作仅仅是将打印的内容输出到tprinter的属性canvas上,当全部输出工作完成以后,打印对象
(tprinter)把canvas的属性值送到打印机上去。
下面举例来说明如何通过Delphi实现文本内容的打印。在Delphi中提供了printdialog 、
printersetupdialog两个控件允许我们进行打印机以及其他影响打印输出的选择,此外最重
要的一点是要想实现打印功能必须在编译程序以前将printers加入到interface或者impl
ementation的UESE语句当中,因为printer单元包括assignprn和其他控制打印机的过程。
首先在From当中加入memo、printdialog、printersetupdialog和两个BUTTON控件,两个
BUTTON的CAPTION分别为"打印设置"和"打印"。然后编写BUTTON的事件驱动程序。本例比较
简单,只要单击"打印"按钮时便可以在打印机上输出文件0S2.TXT。代码如下:
implementation
uses printers;
{$R *.DFM}
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
printersetupdialog1.execute;
//选择输出的打印机以及其他打印控制选项
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
var
lines:integer;
prntext:system.text;
//将PRNTEXT声明为一个在SYSTEM程序单元当中定义的文本文件
begin
if printdialog1.execute then
assignprn(prntext); //将PRNTEST分配给打印机
rewrite(prntext); //调用REWRITE函数,为输出打开已分配的文件
printer.canvas.font:=memo1.font;
//把当前MEMO1的字体指定给打印对象的CANVAS的字体属性
for lines:=0 to memo1.lines.count-1 do
writeln(prntext,memo1.lines[lines]);
//把MEMO的内容写到打印机对象
system.close(prntext); //关闭打印文件
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
memo1.lines.loadfromfile(‘c:\dos\os2.txt’);
//在FORM建立时读入C:\DOS\S2.TXT文件
end;
end.
图形的打印功能
简单的图形打印功能也如打印文本一样容易,只是告诉打印机对象(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的stretchdraw方法,我们可以对图形进
行灵活处理,canvas的stretchdraw方法声明为:
procedure StretchDraw(const Rect: TRect; Graphic: TGraphic);

其中的Rect参数代表图形输出区域的大小,Trect的类型声明为:
TRect = record
case Integer of
0: (Left, Top, Right, Bottom: Integer);
1: (TopLeft, BottomRight: TPoint);end;

因此我们只要调整RECT的大小及其在打印页面上的位置,进而达到满意的效果,下面不断放大
图形,充满我们定义的矩形区域,并将其定位在打印机画布(canvas)的中央然后输出。代码如
下:
procedure TForm1.Button1Click(Sender: TObject);
VAR
strect:Trect; //定义打印输出矩形框的大小
temhi,temwd:integer;
begin
if printdialog1.execute then
begin
temhi:=image1.picture.height;
temwd:=image1.picture.width;
while (temhi<printer.pageheight div 2)and //将图形放大到打印页面的1/2
(temwd<printer.pagewidth div 2) do
begin
temhi:=temhi+temhi;
temwd:=temwd+temwd;
end;
with strect do //定义图形在页面上的中心位置输出
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);
enddoc;
end;
end;
end;

以上代码在Delphi2.0上编译通过。通过这些小例子,相信大家对于在Delphi中打印图形和文
本有了一定的了解。同样通过打印机的画布(canvas)属性也可以实现数据库表单的打印 ,在
这里不一一赘述,如果大家有兴趣不妨一试。

--
※ 来源:.BBS 荔园晨风站 bbs.szu.edu.cn.[FROM: 192.168.0.240]


[回到开始] [上一篇][下一篇]

荔园在线首页 友情链接:深圳大学 深大招生 荔园晨风BBS S-Term软件 网络书店