在DELPHI中实现打印的预览

在DELPHI中实现打印的预览
PCPOP.COM 2005年10月18日 类型:转载 作者:《电脑报》 编辑:王琛

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

    在很多应用程序中，都需要程序具有打印预览功能，以避免用户由于选择不当出现打印错误。预览实现方式为通过创建一个Tpanel的派生类并公开它的canvas属性比例尺或视区范围，使用较为不方便，笔者通过实践实现了用图元文件（Metafile）来实现打印预览的方法，这种方式不需要调整比例尺和视区范围。

基本原理和方法：

　　　　使用图元文件的好处在于图元文件也称作"绘图类型"的图形，是以图形对象（线、圆弧、多边形）方式而不是像素方式来储存图像。图元文件将图形定义为编码的确线段和图形。Windows系统下有两种类型的图元文件:标准型（WMF文件格式）和增强型（EMF文件格式）。

它能够任意大小缩放并且任能保持一定的逼真度，这是因为图元文件通常由一系列矢量图形的图元组成，图元是指线条、填充的区域以及轮廓字体等。扩大或缩小图像只是简单地缩放定义这些图元的所有坐标点，所以当调整图像大小时，图元文件对图像的保存比像素更精确，效果更好。

　　Delphi以Tmetafile对象对 Win32增强型图元文件进行了封装，通过设置Enhanced属性可以设定图元文件是以标准型或可增强型格式存储。
在Delphi中使用图元文件的基本方法是：

  　创建图元文件
  　使用参照设备的打印机句柄创建图元文件画布对象（Tmetafilecanvas）
  　如同在打印机画布上一样，在图元文件画布进行描
  　将图元文件在屏幕上显示出来

实现步骤：

　　首先建立一个窗体文件，在适当位置放上一个panel控件 (panel)，一个checkbok控件(chedkbox1),并设定checkbox的 caption为"打印预览"，在panel上放置一个image控件(image), 并设image的align属性为kckient.

  　在USES中添加打印程序单元（Printers）,尽管Delphi在生成窗体时会自动在USESB部分加入许多程序单元，但打印程序单元却不在此列，只能手工给它加上。

  　关键代码说明：用GetDevice (Printer.Handle,LOGPIXESX)获取当前打印机的水平分辨率。

    如果想让打印程序在任何打印机上都能正常的打印，你就必须改变你的度量单位。

Dpm:=trunc(dpi/25.4);
//算出每毫米的打印机点数。
MyMetafile :=Tmetafile.Create;
//创建图元文件
TmetafileCanvas.Create (MyMetafile,printer.Handle)
//以打印机句柄创建图元文件画布
textout(trunc(sx*dpm), trunc(sy*dpm),'我的打印')；//进行打印输入
imagel.Camvas.StretchDraw (imagel.canvas.cliprect, MyMetafile);
//显示图元文件

程序源代码：
unit u_print;
interface
uses
Windows,Messages,SysUtils,Classes,Graphics,Controls,Controls,Fr-ms,Dialogs,
StdCtr;d,Buttons,printers,ExtCtrls;
Type
TF_prin = class(Tform)
………
private
{Private declarations}
public
{Public declarations}
end;
var
F_print: TF_print;
Implementation
{$R*.DFM}

procedure TF_print.BitBtn1Click(Sender:Tobject);
brgin
  close;
end;

//定义report过程，使真实打印和打印愈来愈览共用此过程
procedure TF_print.report (Acanvas:Tcanvas);
var
 sx,sy,sy0,sx0:real;//开始位置
 dpi,dpm:real; //每毫米的点数
 Arect: Trect;
Begin
  Dpi: =GetDeviceCaps (Printer.Handle,LogPixelsX);
  Dpm:=trunc(dpi/25.4); //每毫米的点数
  Sx:=100; sx0:=10; sy0:=10 sy:=sy0;
  with Acanvas do
    try
     font.name:='宋体'；
     font.size:=18;
     textout(trunc (60*dpm),trunc (sy*dpm),'姓名')；
     sy:=sy+10;
     pen.Width:=5;
     MoveTo(trunc(sx0*dpm),trunc(sy*spm));
     LineTo(trunc((sX0+200)*dpm),trunc(sy*dpm));
     font.size:=12;
     sy::=sy+5;
     textout(trunc(sx0*dpm),trunc(ay*dpm),'内容')；
     sy:=sy+5
     MoveTo(trunc(sx0*dpm),trunc(sy*dpm));
     LineTo(trunc((sX0+200)*dpm),trunc(sy*dpm));
   finally
     Free;
  End;
End;

Procedure TF_print,BitBtn2Click（Sender:Tobject）;
Var
  mymetafile:Tmetafile;
  Ifprt:Boolean;
Begin
  Ifprt:=not checkbok1.checked;
  //是false则打印预览，true则打印
  if ifprt then
    begin
     printer.BeginDoc;
     report(printer.canvas);
     //将打印机画布对象传给report过程
    end
  else
   begin
     MyMetafile: =Tmetafile.Create
     //创建图元文件
     //以打印机句柄创建图元文件画布对象（Tmetafilecanvas）,并调用report过程
     report (TmetagileCanvas.Create(MyMetafile, printer.Handle));
   end;
  //如果是打印则结束打印
  if ifprt then printer.enddoc;
   //如果是打印预览，则在image1上显示出来
  if not ifprt then image1.Canvas.StretchDraw (image1.canvas.cliprect,MyMetafile);
end;
end.